'//////
    Protected Overrides Sub WndProc(ByRef m As Message)
        If ((m.Msg = WM_NCLBUTTONDOWN AndAlso _
             m.WParam.ToInt32() = &H3) OrElse _
             m.Msg = WM_NCRBUTTONDOWN OrElse _
             m.Msg = WM_POPUPTASKMENU) Then
            Return
        End If
        Debug.WriteLine(m.ToString)
        MyBase.WndProc(m)
    End Sub
    Private Const WM_POPUPTASKMENU As Integer = &H313 '// INFO: Ist keine 
    ' Win32-Konstante 
    Private Const WM_NCRBUTTONDOWN As Integer = &HA4
    Private Const WM_NCLBUTTONDOWN As Integer = &HA1
    '//////