Drag Away

'Make A New Form 
'Copy And Past this In the Main Code Area For
'Form
Private Sub Form_Load()
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Dim lngReturnValue As Long
 If Button = 1 Then
  Call ReleaseCapture
  lngReturnValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
 End If
End Sub
'And Werk Like You would Always Werk Then
'Press
'Play And Dag It From The 
'Main body Of the Form 
'Instead Of the Blue Bar