HOW TO MINIMIZED AN APP TO SYSTEM TRAY IN VB?

THIS IS FOR ADVANCED PROGRAMMERS ONLY. DO NOT ATTEMPT IT IF YOU ARE NEW.

This example will "minimize" your program to the system tray when you click on a button, and restore it when you click the system tray icon.

Step 1: Add Necessary Controls

For this example you'll need:
1 Form - Form1
1 button - Command1

Add a Module to your project, and ad this code:

' Create an Icon in System Tray Needs
'------------------------------------------------------
'
' Tutorial: Using the system tray
' 09/26/98
'
' Distributed by : Dhrubajyoti Nath e-mail : [e-mail]
'------------------------------------------------------

Public 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 WM_MOUSEMOVE = &H200
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
Public Const WM_LBUTTONDOWN = &H201 'Button down
Public Const WM_LBUTTONUP = &H202 'Button up
Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
Public Const WM_RBUTTONDOWN = &H204 'Button down
Public Const WM_RBUTTONUP = &H205 'Button up

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

Comments

[Programmiere Chao]

if code is to be used with MDI forms please consider replacing

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

with

Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

normal form events are
Form_event()
but mdi forms are
MDIForm_event()