Public Sub BalloonTip(Prompt As String, Optional Style As BalloonTipStyle = _
  btsNoIcon, Optional Title As String, Optional Timeout As Long = 2000)
    If Title = Empty Then Title = App.Title
    If Prompt = Empty Then Prompt = " "
    With m_IconData
        .szInfo = Prompt & Chr(0)
        .szInfoTitle = Title & Chr(0)
        .dwInfoFlags = Style
        .uTimeout = Timeout
    End With
    Shell_NotifyIcon NIM_MODIFY, m_IconData
End Sub