Ciao..potresti anche fare in modo che il mouse disegni esclusivamente quando il tasto (destro o sinistro) è premuto, ma questo dipende dalle tue esigenze (io le ebbi quindi feci così

codice:
Dim pressione As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
pressione = True
'procedura per il disegno
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If pressione = True Then
'procedura per il disegno
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
pressione = False
End Sub
ciao..