[/code]Dim nid As NOTIFYICONDATA ' trayicon variable'----------------------'--- command1 click ---'----------------------Private Sub Command1_Click()minimize_to_trayEnd Sub'------------------------'--- create tray icon ---'------------------------Sub minimize_to_tray()Me.Hidenid.cbSize = Len(nid)nid.hwnd = Me.hwndnid.uId = vbNullnid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGEnid.uCallBackMessage = WM_MOUSEMOVEnid.hIcon = Me.Icon ' the icon will be your Form1 project iconnid.szTip = "Calvin-w" & vbNullCharShell_NotifyIcon NIM_ADD, nidEnd Sub'---------------------------------------------------'-- Tray icon actions when mouse click on it, etc --'---------------------------------------------------Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)Dim msg As LongDim sFilter As Stringmsg = x / Screen.TwipsPerPixelXSelect Case msgCase WM_LBUTTONDOWNMe.Show ' show formShell_NotifyIcon NIM_DELETE, nid ' del tray iconCase WM_LBUTTONUPCase WM_LBUTTONDBLCLKCase WM_RBUTTONDOWNCase WM_RBUTTONUPMe.ShowShell_NotifyIcon NIM_DELETE, nidCase WM_RBUTTONDBLCLKEnd SelectEnd Sub'------------------------------'--- form Actions On unload ---'------------------------------Private Sub Form_Unload(Cancel As Integer)Shell_NotifyIcon NIM_DELETE, nid ' del tray iconEnd Sub[code]
