[color=5801530][size=3]Private[/size][/color] [color=8808045][size=2]Sub[/size][/color] [color=5636433][size=4]Form_Resize()
If[/size][/color] [color=9933789][size=7]Me.WindowState[/size][/color] [color=3696010][size=2]=[/size][/color] [color=7959268][size=7]1[/size][/color] [color=9572989][size=2]Then
'The[/size][/color] [color=4526075][size=1]user[/size][/color] [color=9054590][size=3]has[/size][/color] [color=5095832][size=3]minimized[/size][/color] [color=0431079][size=3]his[/size][/color] [color=6715942][size=7]window
Call[/size][/color] [color=3502143][size=7]Shell_NotifyIcon(NIM_ADD,[/size][/color] [color=4468933][size=1]IconData)
'[/size][/color] [color=2856339][size=2]Add[/size][/color] [color=0177744][size=1]the[/size][/color] [color=8922301][size=4]form's[/size][/color] [color=0466004][size=3]icon[/size][/color] [color=4030866][size=7]to[/size][/color] [color=5810752][size=7]the[/size][/color] [color=0609107][size=1]tray
Me.Hide
'[/size][/color] [color=7059631][size=1]Hide[/size][/color] [color=6336131][size=2]the[/size][/color] [color=3275917][size=4]button[/size][/color] [color=1663052][size=3]at[/size][/color] [color=3238062][size=2]the[/size][/color] [color=6144258][size=5]taskbar
End[/size][/color] [color=4758321][size=4]If
End[/size][/color] [color=3079789][size=1]Sub
Private[/size][/color] [color=1038931][size=6]Sub[/size][/color] [color=0598732][size=5]Form_Load()
With[/size][/color] [color=8992939][size=1]IconData
.cbSize[/size][/color] [color=0850823][size=6]=[/size][/color] [color=1321207][size=1]Len(IconData)
'[/size][/color] [color=6878237][size=1]The[/size][/color] [color=7118860][size=6]length[/size][/color] [color=1271808][size=6]of[/size][/color] [color=1164004][size=6]the[/size][/color] [color=2861518][size=6]NOTIFYICONDATA[/size][/color] [color=0536059][size=4]type
.hIcon[/size][/color] [color=2409262][size=4]=[/size][/color] [color=9961639][size=5]Me.Icon
'[/size][/color] [color=7360091][size=7]A[/size][/color] [color=3002717][size=5]reference[/size][/color] [color=1115045][size=5]to[/size][/color] [color=5126460][size=6]the[/size][/color] [color=5696884][size=3]form's[/size][/color] [color=3051597][size=6]icon
.hwnd[/size][/color] [color=1004146][size=3]=[/size][/color] [color=7059655][size=6]Me.hwnd
'[/size][/color] [color=0271207][size=3]hWnd[/size][/color] [color=7729840][size=4]of[/size][/color] [color=3444655][size=1]the[/size][/color] [color=0598356][size=6]form
.szTip[/size][/color] [color=5812265][size=1]=[/size][/color] [color=2774274][size=3]"My[/size][/color] [color=9952101][size=4]Tooltip"[/size][/color] [color=7606189][size=2]&[/size][/color] [color=1430273][size=6]Chr(0)
'[/size][/color] [color=9329818][size=3]Tooltip[/size][/color] [color=1584946][size=4]string[/size][/color] [color=7755589][size=3]delimited[/size][/color] [color=7437340][size=2]with[/size][/color] [color=5737816][size=5]a[/size][/color] [color=8755942][size=5]null[/size][/color] [color=8835181][size=1]character
.uCallbackMessage[/size][/color] [color=3813809][size=5]=[/size][/color] [color=5681086][size=4]WM_MOUSEMOVE
'[/size][/color] [color=1967233][size=3]The[/size][/color] [color=1695050][size=6]icon[/size][/color] [color=6230027][size=6]we're[/size][/color] [color=8803616][size=7]placing[/size][/color] [color=2842148][size=7]will[/size][/color] [color=4812045][size=1]send[/size][/color] [color=5058464][size=7]messages[/size][/color] [color=2893306][size=1]to[/size][/color] [color=0922086][size=2]the[/size][/color] [color=3451057][size=4]MouseMove[/size][/color] [color=2085575][size=5]event
.uFlags[/size][/color] [color=3503446][size=4]=[/size][/color] [color=2121139][size=5]NIF_ICON[/size][/color] [color=4340038][size=5]Or[/size][/color] [color=0403105][size=2]NIF_TIP[/size][/color] [color=4695827][size=7]Or[/size][/color] [color=7199363][size=7]NIF_MESSAGE
'[/size][/color] [color=1111346][size=7]It[/size][/color] [color=6330332][size=1]will[/size][/color] [color=6964338][size=2]have[/size][/color] [color=6528392][size=3]message[/size][/color] [color=1110939][size=7]handling[/size][/color] [color=0985965][size=4]and[/size][/color] [color=9833986][size=6]a[/size][/color] [color=3947276][size=6]tooltip
.uID[/size][/color] [color=0982111][size=2]=[/size][/color] [color=0743431][size=1]vbNull
'[/size][/color] [color=9795694][size=3]uID[/size][/color] [color=4470816][size=3]is[/size][/color] [color=3140733][size=6]not[/size][/color] [color=7032332][size=7]used[/size][/color] [color=7485710][size=1]by[/size][/color] [color=5576403][size=7]VB,[/size][/color] [color=0193812][size=5]so[/size][/color] [color=3275629][size=2]it's[/size][/color] [color=1723215][size=2]set[/size][/color] [color=0352573][size=5]to[/size][/color] [color=7312391][size=5]a[/size][/color] [color=2115345][size=3]Null[/size][/color] [color=5546896][size=7]value
End[/size][/color] [color=5725690][size=5]With
End[/size][/color] [color=8182078][size=2]Sub
Private[/size][/color] [color=6610909][size=5]Sub[/size][/color] [color=7270278][size=6]mnuExit_Click()
Unload[/size][/color] [color=6266759][size=3]Me
'[/size][/color] [color=1562622][size=6]Unload[/size][/color] [color=7291869][size=4]the[/size][/color] [color=7573203][size=2]form
End
'[/size][/color] [color=3168025][size=1]Just[/size][/color] [color=6894460][size=4]to[/size][/color] [color=0939769][size=1]be[/size][/color] [color=2181760][size=1]sure[/size][/color] [color=1485536][size=4]the[/size][/color] [color=7849641][size=1]program[/size][/color] [color=5233734][size=5]has[/size][/color] [color=1659333][size=1]ended
End[/size][/color] [color=8929859][size=5]Sub
Private[/size][/color] [color=2829193][size=6]Sub[/size][/color] [color=0755273][size=6]mnuShow_Click()
Me.WindowState[/size][/color] [color=0239871][size=3]=[/size][/color] [color=4417112][size=1]vbNormal
Shell_NotifyIcon[/size][/color] [color=2709154][size=2]NIM_DELETE,[/size][/color] [color=2796888][size=1]IconData
Me.Show
End[/size][/color] [color=5495198][size=4]Sub
Private[/size][/color] [color=6847866][size=6]Sub[/size][/color] [color=4424636][size=4]Form_MouseMove(Button[/size][/color] [color=7170745][size=5]As[/size][/color] [color=5016279][size=3]Integer,[/size][/color] [color=9422073][size=5]Shift[/size][/color] [color=1013633][size=2]As[/size][/color] [color=8479277][size=2]Integer,[/size][/color] [color=3817496][size=6]X[/size][/color] [color=5952134][size=1]As[/size][/color] [color=8196319][size=2]Single,[/size][/color] [color=6987990][size=2]Y[/size][/color] [color=6081551][size=2]As[/size][/color] [color=4476711][size=4]Single)
Dim[/size][/color] [color=0710709][size=2]Msg[/size][/color] [color=9905087][size=5]As[/size][/color] [color=8450425][size=3]Long
Msg[/size][/color] [color=0728324][size=4]=[/size][/color] [color=7362893][size=5]X
'[/size][/color] [color=1625450][size=4]The[/size][/color] [color=6183600][size=6]message[/size][/color] [color=1809808][size=5]is[/size][/color] [color=5577158][size=7]passed[/size][/color] [color=0997998][size=4]to[/size][/color] [color=7612408][size=6]the[/size][/color] [color=3800947][size=1]X[/size][/color] [color=8608733][size=1]value
'[/size][/color] [color=3937028][size=2]You[/size][/color] [color=9421961][size=4]must[/size][/color] [color=7043579][size=5]set[/size][/color] [color=1993998][size=3]your[/size][/color] [color=3095717][size=1]form's[/size][/color] [color=0804151][size=2]ScaleMode[/size][/color] [color=4517805][size=4]property[/size][/color] [color=0751242][size=1]to[/size][/color] [color=6888666][size=5]pixels[/size][/color] [color=3327744][size=4]in[/size][/color] [color=7793705][size=2]order[/size][/color] [color=5350558][size=4]to[/size][/color] [color=5083725][size=6]get[/size][/color] [color=8545778][size=5]the[/size][/color] [color=2045582][size=5]correct[/size][/color] [color=3633061][size=6]message
If[/size][/color] [color=4717618][size=4]Msg[/size][/color] [color=1142694][size=6]=[/size][/color] [color=4984130][size=6]WM_LBUTTONDBLCLK[/size][/color] [color=7291917][size=2]Then
'[/size][/color] [color=4600619][size=1]The[/size][/color] [color=2934399][size=3]user[/size][/color] [color=1681865][size=2]has[/size][/color] [color=7493175][size=7]double-clicked[/size][/color] [color=4280831][size=3]your[/size][/color] [color=0722953][size=6]icon
Call[/size][/color] [color=3693354][size=6]mnuShow_Click
'[/size][/color] [color=0931158][size=4]Show[/size][/color] [color=4391184][size=6]the[/size][/color] [color=5510332][size=1]window
ElseIf[/size][/color] [color=1105716][size=6]Msg[/size][/color] [color=7099991][size=3]=[/size][/color] [color=8775525][size=3]WM_RBUTTONDOWN[/size][/color] [color=1078433][size=5]Then
'[/size][/color] [color=6200527][size=2]Right-click
PopupMenu[/size][/color] [color=7131958][size=4]mnuPopup
'[/size][/color] [color=3626665][size=7]Popup[/size][/color] [color=6647483][size=4]the[/size][/color] [color=6237919][size=5]menu
End[/size][/color] [color=9584844][size=5]If
End[/size][/color] [color=2247170][size=7]Sub
Private[/size][/color] [color=7148808][size=6]Sub[/size][/color] [color=8946116][size=2]Form_Unload(Cancel[/size][/color] [color=7660810][size=1]As[/size][/color] [color=1842453][size=7]Integer)
Shell_NotifyIcon[/size][/color] [color=1308707][size=7]NIM_DELETE,[/size][/color] [color=7059084][size=1]IconData
End[/size][/color] [color=5295001][size=5]Sub
[/size][/color]