DrawForm3D

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