How to move a form without title bar (VB 6)

[variable]

Yep, this is for vb 6.
With this code, you can move your application using ANYTHING!

Anyhow.
At first, make a module and paste this code into it:

Declare Sub ReleaseCapture Lib "user32" ()
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

As you can see, they are the required API calls.

After declaring those, you need a sub-routine.
This is the sub which must be called to move the form (It's not as complicated as you may think)

Add this code:

Public Sub mf()
    ReleaseCapture
    Call SendMessage(Screen.ActiveForm.hwnd, &HA1, 2, 0&)
End Sub

Now, from your app, double click on a control and the code window should open up.
Let's say your control was a label and named lbl. Now, from the procedure list, select MouseDown.
This is what you will get:

Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

Here, just add the word mf in the lbl_MouseDown event (i.e, you'll call the sub-routine).
You should get this:

Private Sub lbl_MouseDown( Button As Integer, Shift As Integer, X As Single, Y As Single)
     mf
End Sub

Now when you sorta drag the control, the whole form will move.
This is happening because you have just fooled the windows!
The SendMessage API call is used to send various messages to the windows after which the windows responds to them.
Using the above code you will tell windows that the title bar was dragged. So, the whole form will move!

Anyway, if you wanna make the whole form move able like my IM Flooder, make the controls as array and just do the same thing as shown above.
If you face any problem, post a message.