Private Sub form1_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.NotifyIcon1.Icon = Me.Icon
        Me.NotifyIcon1.Text = ""  'Tooltip abschalten
        Me.NotifyIcon1.Visible = True
End Sub
 
 
Private Sub NotifyIcon1_MouseClick(sender As Object, _
        e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
 
        'Click mit rechter Maustaste auf Icon zeigt einen Balloon
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Me.NotifyIcon1.ShowBalloonTip _
                            (4000, "Ich bin der Title des Balloon", _
                             "Ich bin der Text im Balloon", ToolTipIcon.Info)
        End If
End Sub
 
 
Private Sub NotifyIcon1_BalloonTipClicked(sender As Object, _
        e As System.EventArgs) Handles NotifyIcon1.BalloonTipClicked
 
        Me.NotifyIcon1.ShowBalloonTip(4000, "Nur gucken", _
                             "Nicht anfassen", ToolTipIcon.Info)
End Sub