Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        notifier.Label1.Text = "Hier kommt die Aktuelle Information hin"
        notifier.Show()
    End Sub

Public Class notifier
    Private Sub notifier_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Me.Show()
        Me.ShowInTaskbar = False
        Left = (SystemInformation.WorkingArea.Size.Width - Size.Width)
        Top = (SystemInformation.WorkingArea.Size.Height - Size.Height)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Me.Hide()
    End Sub
End Class