Test Toast

Imports System.Windows.Forms

Imports Windows.UI.Notifications

Module Module1

    Sub Main()

        'Open regedit.exe

        'Navigate to HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced

        'Set (Or add) EnableBalloonTips (as REG_DWORD) And set value to 1


        Dim toast As New NotifyIcon

        toast.Icon = My.Resources.banana

       toast.BalloonTipText = "Drive Available"

        toast.BalloonTipTitle = "R: Mapped Successfully"

        toast.Visible = True


        'Dim dDateStart As DateTime = Now

        'While DateDiff(DateInterval.Second, dDateStart, Now) < 5

        '    Console.WriteLine(DateDiff(DateInterval.Second, dDateStart, Now))

        '    Application.DoEvents()

        'End While


    End Sub

End Module

Tooltip on a label (control)

    Sub SetToolTipForNoPings(sText As String, Optional bClear As Boolean = False)

        Dim tt As ToolTip = New ToolTip

        Dim sOut As String = tt.GetToolTip(Label12)

        If bClear Then sOut = ""

        sOut = sOut & "," & sText

        tt.SetToolTip(Label12, sOut)

    End Sub