[VB.NET] Dare una forma personalizzata alla form e spostarla

[MItaly]

Aggiungi il seguente codice per poter muovere il form trascinandolo con il mouse:

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Const WM_NCHITTEST As Integer = &H84
        Const HTCLIENT As Integer = 1
        Const HTCAPTION As Integer = 2
        MyBase.WndProc(m)
        If m.Msg = WM_NCHITTEST And m.Result.ToInt32 = HTCLIENT Then
            m.Result = New IntPtr(HTCAPTION)
        End If
    End Sub

.
Esso fa credere al form che quando fai click sulla sua area client tu stia facendo click sulla sua barra del titolo.