Moving a Window

' Author  : Kiran Kumar B
' Company : Nanna Computers
' Email   : bk_kiran_kumar@yahoo.co.uk
'           bk_kiran_kumar@rediffmail.com
'           kirankumar@nannacomputers.com
' Mobile  : +91 98854 43215

Imports System.Runtime.InteropServices

Public Class frmMain

    ' All the below functions and constants are related to Win32 API

    Public Const GWL_STYLE = (-16)
    Public Const WS_DLGFRAME = &H400000
    Public Const HTCAPTION = 2
    Public Const WM_NCLBUTTONDOWN = &HA1

    <DllImport("User32.dll")> _
    Public Shared Function ReleaseCapture() As Integer
    End Function

    <DllImport("User32.dll")> _
    Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As Integer, _
                        ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    End Function

    Private Sub frmMain_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        ' Using the below code you can just drag the form to any place
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Cursor = Cursors.SizeAll
            Call ReleaseCapture()
            Call SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
            Me.Cursor = Cursors.Arrow
        End If

        ' If you want to make the form without a titlebar and 
    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnTitleForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTitleForm.Click
        Call frmTitle.ShowDialog()
    End Sub
End Class