Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 1 Then Line (Form1.CurrentX, Form1.CurrentX)-(X, Y), vbRed End If If Button = 2 Then Line (Form1.CurrentX, Form1.CurrentX)-(X, Y), vbGreen End If End Sub |