Originariamente inviato da emik

ma non cambia niente.. c'è qualcuno che sa aiutarmi?
Prova così

codice:
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Drawing = True
    Picture1.DrawWidth = 9
    Picture1.ForeColor = RGB(VScrollRed, VScrollGreen, VScrollBlue)
    Picture1.PSet (X, Y)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Drawing = True Then Picture1.Line -(X, Y)
End Sub