Dim mnuTray As New ContextMenu
        Dim mnuItem As MenuItem
 
        mnuItem = New MenuItem("&Beenden", New System.EventHandler(AddressOf _
          ....))
        mnuTray.MenuItems.Add(mnuItem)
 
        mnuItem = New MenuItem("&Neu", New System.EventHandler(AddressOf ....))
        mnuTray.MenuItems.Add(mnuItem)
 
        icoTray.ContextMenu = mnuTray