FlashFXP Forums - View Single Post

Ammo1 · 04-15-2003, 07:21 AM

I found this lying around...

Code:

Option Explicit
Private WithEvents sysTray As SystemTray.Application

Private Sub Form_Load()
    Set sysTray = New SystemTray.Application
    Call sysTray.CreateIcon(App.Path & "\Trffc10c.ico", "My Icon")
    Call sysTray.ShowBalloon("Hello", &H1, "www.flasfxp.com.com")
End Sub

attached is also a baloon control thanx to vbrad.com ...