Dim X1 As Integer, Y1
As Integer


Private Sub Form_MouseDown(Button As
Integer, Shift As Integer, X As
Single, Y As Single)

If Button = 1 Then

X1 = Y

Y1 = Y

End If

End Sub


Private Sub Form_MouseMove(Button As
Integer, Shift As Integer, X As
Single, Y As Single)

If Button = 1 Then

Me.Cls

Me.Line (X1, Y1)-(X,
Y)

End If

End Sub


Private Sub Form_MouseUp(Button As
Integer, Shift As Integer, X As
Single, Y As Single)

If Button = 1 Then

Me.Cls

Me.Line (X1, Y1)-(X,
Y)

End If

End Sub