MoveFormNoBar (2)

Dim xx, yy as Integer

Public Sub Form_MouseDown(Button as integer, Shift as integer, X as single, Y as single)
xx = X
yy = Y
End Sub

Public Sub Form_MouseMove(Button as integer, Shift as integer, X as single, Y as single)
If Button = 1 Then
form1.Left = X + (form1.left - xx)
form1.top = x + (form1.top - yy)
End If
End Sub