another question on drawing in pic box

Private Sub picDraw_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
'picDraw.Cls <-REMOVE
If Button = 1 Then 
picDraw.Line (X, Y)-(A, B), RGB(255, 0, 0) 
End If 
End Sub