Disegnare linee rette

[Magicolotto]

Private Sub form_mousedown(button As Integer, shift As _
Integer, x As Single, y As Single)
disegna = True
Line (x, y)-(x, y), CommonDialog1.Color
End Sub

Private Sub form_mousemove(button As Integer, shift As _
Integer, x As Single, y As Single)
If disegna = True Then
Line -(x, y), CommonDialog1.Color
End If
End Sub

Private Sub form_mouseup(button As Integer, shift As _
Integer, x As Single, y As Single)
disegna = False
End Sub

con il codice sopra riportato, si riesce a farsi' che si tirino delle linee col mause, pero' dovrei modificare questo codice in modo che le linee vengano dritte tracciando una linea retta dal momento in cui si preme il tasto sinistro del mause aal momento che si lascia....
come è adesso viene sistorta dal movimento irregolare della mano durante il trascinamento.......

n.b. il commonDialog, come si ridimensiona?

[Magicolotto]

risolto, grazie per l'aiuto

[oregon]

Originariamente inviato da Magicolotto
risolto, grazie per l'aiuto

?

Veramente non c'e' stato tempo di darti un aiuto ...

[Magicolotto]

si ho visto la % delle risposte nel forum e me ne sono reso conto