MoveFormNobar (6)

Function movt(ByVal X As Single, Y As Single)
With Me
'this is where the move stuff comes into play

.Left = .Left + X
.Top = .Top + Y
End With
End Function

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Call movt(X, Y)
End Sub