Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then Form1.PSet (x, y) End IfEnd Sub