in effetti, il mio codice si potrebbe integrare con quello scritto da MDE

codice:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <>1 Then Exit Sub
Me.PSet (X, Y)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <>1 Then Exit Sub
Me.Line -(X, Y)
End Sub
Boolean