Veja se ajuda :
' Colocar Ícone no System Tray
'
' Num módulo .bas coloque o seguinte:
Public Const WM_LBUTTONDOWN = &H201
Public Const TRAY_MSG_MOUSEMOVE = 7680
Public Const TRAY_MSG_LEFTBTN_DOWN = 7695
Public Const TRAY_MSG_LEFTBTN_UP = 7710
Public Const TRAY_MSG_LEFTBTN_DBLCLICK = 7725
Public Const TRAY_MSG_RIGHTBTN_DOWN = 7740
Public Const TRAY_MSG_RIGHTBTN_UP = 7755
Public Const TRAY_MSG_RIGHTBTN_DBLCLICK = 7770
Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
' No load do form coloque o seguinte:
Dim iData As NOTIFYICONDATA
iData.cbSize = Len(iData)
iData.hwnd = Picture1.hwnd
iData.uID = 9999
iData.uFlags = NIF_MESSAGE + NIF_ICON + NIF_TIP
iData.uCallbackMessage = WM_LBUTTONDOWN
iData.hIcon = Picture1.Picture
iData.szTip = Label1.Caption & Chr$(0)
Result = Shell_NotifyIcon(NIM_ADD, iData)
Me.Hide
' No evento unload do form
Dim iData As NOTIFYICONDATA
iData.cbSize = Len(iData)
iData.hwnd = Picture1.hwnd
iData.uID = 9999
Result = Shell_NotifyIcon(NIM_DELETE, iData)
End
' No evento Picture1_Mousedown(...)
Select Case x
Case TRAY_MSG_MOUSEMOVE
Case TRAY_MSG_LEFTBTN_DOWN
Case TRAY_MSG_LEFTBTN_UP
'aqui pode utilizar um menu
Case TRAY_MSG_LEFTBTN_DBLCLICK
Me.Show
Me.SetFocus
Case TRAY_MSG_RIGHTBTN_DOWN
Case TRAY_MSG_RIGHTBTN_UP
Case TRAY_MSG_RIGHTBTN_DBLCLICK
End Select
' No form coloque BorderStyle = FixedSingle e ShowTaskBar = False. Coloque também
' um botão para "Minimizar form" com o seguinte código:
Me.Hide
' O form tem que conter uma picture onde coloque a imagem que vai para o
' Tray e um Label onde será o Tooltip da imagem, estes dois objetos poderam
' ser Visible = False, para não aparecer no form durante a execução.
