VB.NET Windows Form ถามเรื่องเกี่ยวกับคำสั่งที่ใช้กับฟอร์มโดยตรงและคำสั่งปุ่ม

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

Me.WindowState = FormWindowState.Minimized