MoveFormNoBar (7)

Dim MoveNow As Boolean
Dim OldX As Single
Dim OldY As Single
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
OldX = X
OldY = Y
MoveNow = True
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If MoveNow Then
Move (Left + X - OldX), (Top + Y - OldY)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
MoveNow = False
End If
End Sub