Vb.net drag window without titlebar

Public Const WM_NCLBUTTONDOWN As Integer = &HA1 
Public Const HT_CAPTION As Integer = &H2 

<DllImportAttribute("user32.dll")> _ 
Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function

<DllImportAttribute("user32.dll")> _ 
Public Shared Function ReleaseCapture() As Boolean
End Function

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown, Panel1.MouseDown 
    If e.Button = Windows.Forms.MouseButtons.Left Then
        ReleaseCapture() 
        SendMessage(Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0) 
    End If
End Sub

Source: stackoverflow.com

Similar codes

0 vote155 views1 answer
C# xmldocument from file
C#
0 vote183 views2 answers
F# tuple get item
C#
0 vote178 views1 answer
Parse error message: could not create type webservice.webservice asp .net
C#
0 vote175 views1 answer
How to check if list index is out of range in c#
C#
0 vote165 views1 answer
Largest prime factor C#
C#
35 votes178 views4 answers
C# list length
C#
38 votes259 views3 answers
Unity get mouse position
C#Unity
11 votes162 views1 answer
Abril modal boostrap
C#
0 vote174 views1 answer
C# label continue in new line
C#
0 vote191 views1 answer
Remove header visual studio android
C#