Public Class Form1  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.NotifyIcon1.Icon = Me.Icon.Clone
        NotifyIcon1.Visible = True
        NotifyIcon1.BalloonTipText = Now
        NotifyIcon1.ShowBalloonTip(1000000)
    End Sub
 
    Private Sub NotifyIcon1_BalloonTipClicked(ByVal sender As Object, ByVal e _
      As System.EventArgs) Handles NotifyIcon1.BalloonTipClicked
        Console.Beep(1000, 50) ' Mach was
        NotifyIcon1.Visible = False
    End Sub
End Class