´Examample of use:
´****The below goes into your main form*****
´****Copy the below and take out the first ´ in every line****
´Private Sub GoSystemTray()
´ VBGTray.cbSize = Len(VBGTray)
´ VBGTray.hwnd = Me.hwnd
´ VBGTray.uId = vbNull
´ VBGTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
´ VBGTray.ucallbackMessage = WM_MOUSEMOVE
´ VBGTray.hIcon = Me.Icon
´ ´tool tip text
´ VBGTray.szTip = Me.Caption & vbNullChar
´ Call Shell_NotifyIcon(NIM_ADD, VBGTray)
´ App.TaskVisible = False ´remove application from taskbar
´ Me.Hide
´End Sub
´Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
´ Static lngMsg As Long
´ Static blnFlag As Boolean
´ Dim result As Long