View Single Post
Old 04-15-2003, 07:21 AM  
Ammo1
Member
 
Join Date: Jan 2003
Posts: 34
Default

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 ...
Attached Files
File Type: zip dl_tray_baloon.zip (29.7 KB, 134 views)
Ammo1 is offline