Sub main()
        Form1.start()
        Application.Run()
End Sub

Public Sub start()
        'vorbereiten(Tray)
        Dim Tray As NotifyIcon = New NotifyIcon
        Tray.Icon = My.Resources.myIcon1 ' makeIcon(My.Resources.myLogo01)
        Tray.ContextMenuStrip = cms_Dynamisch()
        Tray.Visible = True
    End Sub

 
Private Sub frmKonfi_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.Show()
End Sub

 Auf das verworfene Objekt kann nicht zugegriffen werden. Objektname: _
   "ContextMenuStrip".