Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = &H313 Then
            ContextMenuStrip1.Show(Me, Me.PointToClient(New Point( _
              m.LParam.ToInt32())))
        Else
            MyBase.WndProc(m)
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist