Picture Draw Visual Basic 6.0

[emik]

Salve a tutti ho un problema con questo programmino.. praticamente sto creando come base iniziale del programma una picture box sulla quale posso disegnare ciò che voglio con il mouse.. il codice che ho usato fin ora è questo

Dim Drawing As Boolean 
 Private Sub Form_Load() 
Drawing = False 
End Sub   
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Drawing = True 
End Sub   
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Drawing = True Then Picture1.DrawWidth = 9 Picture1.ForeColor = RGB(VScrollRed, VScrollGreen, VScrollBlue)
 Picture1.PSet (X, Y) 
End If 
End Sub  
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Drawing = False 
End Sub

ma quando faccio una prova quando vado troppo veloce col mouse succede questo..

si creano dei puntini invece che una linea continua.. come posso risolvere il problema? grazie in anticipo.. uso visual basic 6 su windows xp =)
emik