Plz help with this code

Greetings Every1,
Look at this code,
------------------------------------------------------
Dim Draw as Boolean
Dim MX as Single,MY as single

Private Sub Form_MouseDown(Button as Integer,Shift as Integer,X as integer,Y as Integer)
Draw=True
MX=X
MY=Y
End Sub

Private Sub Form_MouseMove(Button as Integer,Shift as Integer,X as integer,Y as Integer)
if Draw=False Then Exit Sub
Line(MX,MY)-(MX+5,MY+5),,BF
MX=X
MY=Y
End Sub

Private Sub Form_MouseUp(Button as Integer,Shift as Integer,X as integer,Y as Integer)
Draw=False
End Sub

----------------------------------------------
If the mouse is moved slowly, the effect is good, but if u move it a bit sudden, the squares are drawn hithero. I want to emulate the MS-Paint bursh effect. Any possible solutions. Plz help

I have tried your code..It's happened as your said:i move the mouse suddenly,the sequares are drawn hithero..I think it's luck of the line method...U can try to use "lineto" win32 api function.