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 vote115 views1 answer
Web forms switch page
C#
0 vote101 views1 answer
Real world example of sinleton design pattern
C#
18 votes112 views4 answers
C# iterate enum
C#
0 vote113 views1 answer
How to add gravity without rb in unity
C#
10 votes112 views2 answers
How to solve error CS0619: 'GUIText' is obsolete: 'GUIText has been removed. Use UI.Text instead.'
C#
0 vote104 views1 answer
C# condition and
C#
2 votes88 views1 answer
Unity overlapsphere
C#Unity
0 vote107 views1 answer
C# How to display text in console
C#
49 votes118 views6 answers
Instantiate unity
C#
0 vote101 views1 answer
How to set unique constraint from EF core
C#