Snippet Library

'put in module

Option Explicit
     Private 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

     Private Const NIM_ADD = &H0
     Private Const NIM_MODIFY = &H1
     Private Const NIM_DELETE = &H2
     Private Const WM_MOUSEMOVE = &H200
     Private Const NIF_MESSAGE = &H1
     Private Const NIF_ICON = &H2
     Private Const NIF_TIP = &H4

     Private Declare Function Shell_NotifyIcon Lib "shell32" _
     Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid _
     As NOTIFYICONDATA) As Boolean

     Dim t As NOTIFYICONDATA

'and this part for the actual sub... 

 'form load
     t.cbSize = Len(t)
     t.hWnd = form1.hWnd                    'change this to your forms name
     t.uId = 1&
     t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
     t.ucallbackMessage = WM_MOUSEMOVE
     t.hIcon = form1.icon                   'change this to your forms name
     t.szTip = "System Tray" & Chr$(0)
     Shell_NotifyIcon NIM_ADD, t
     Me.Hide
     App.TaskVisible = False;