VB - NotifyIcon Balloon

    Sub Balloon(ByVal NotifyIcon As NotifyIcon, ByVal Text As String, ByVal Title As String, ByVal Style As ToolTipIcon, ByVal Time As Integer)
        NotifyIcon.BalloonTipIcon = Style
        NotifyIcon.BalloonTipText = Text
        NotifyIcon.BalloonTipTitle = Title

        NotifyIcon.ShowBalloonTip(Time)
    End Sub