'Dichiarazioni
Delegate Sub NotifyIconDelegate(ByVal Time As Integer)

'Nel codice del thread separato
ApplicationBarIcon.Visible = True
ShowBalloon(10000)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub ShowBalloon(ByVal Time As Integer)
        If Me.InvokeRequired Then
            Me.BeginInvoke(New NotifyIconDelegate(AddressOf ShowBalloon), Time)
        Else
            AddHandler ApplicationBarIcon.BalloonTipClicked, AddressOf ApplicationBarIcon_BalloonTipClicked
            ApplicationBarIcon.ShowBalloonTip(Time)
        End If
End Sub

'Handler
Private Sub ApplicationBarIcon_BalloonTipClicked(ByVal sender As Object, ByVal e As System.EventArgs)
MsgBox("Hai cliccato sul Balloon")
End Sub