Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim cmn As New ContextMenu
        Dim mnu As New MenuItem("IP vergleichen")
        AddHandler mnu.Click, AddressOf Me.IPVergleichen
        cmn.MenuItems.Add(mnu)
        TextBox1.ContextMenu = Nothing
        TextBox1.ContextMenu = cmn
 
    End Sub
    Private Sub IPVergleichen(ByVal sender As Object, ByVal e As _
      System.EventArgs)
 
    End Sub