[HELP] Move A Form

**DaneX** · Jul 9th, 2009, 02:26 PM

I want to be able to drag the form by click on the form.... not by clicking on the bar...

The formborderstyle is at None...
sorry for my english

**stanav** · Jul 9th, 2009, 02:45 PM

Try this:

Code:

Private Const WM_NCLBUTTONDOWN As Integer = &HA1S
Private Const HTCAPTION As Integer = &H2

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
     Me.Capture = False
     Dim msg As Message = Message.Create(Me.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
     Me.DefWndProc(msg)
End Sub

**NickThissen** · Jul 9th, 2009, 03:15 PM

Take a look at my signature, there's a link to a codebank submission for moving and resizing a Borderless Form using API calls. The resizing bit is a little complicated, but the moving part is really easy.

EDIT
After taking a second look, it seems that stanav's code does exactly the same, he just calls the required functions in a different way