Private Const WM_NCLBUTTONDOWN As Integer = &HA1
    Private Const HTCAPTION As Integer = &H2
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        If (m.Msg = WM_NCLBUTTONDOWN AndAlso _
            m.WParam.ToInt32() = HTCAPTION) Then
            Return
        End If
        MyBase.WndProc(m)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
    End Sub