2、菜單：工程--添加模塊按“打開”這樣就添加了一個新模塊，名為Module1,保存為Module1.bas

　　3、在Module1中寫下如下代碼：

　　OptionExplicit

　　PublicConstMAX_TOOLTipAsInteger=64

　　PublicConstNIF_ICON=&H2

　　PublicConstNIF_MESSAGE=&H1

　　PublicConstNIF_TIP=&H4

　　PublicConstNIM_ADD=&H0

　　PublicConstNIM_DELETE=&H2

　　PublicConstWM_MOUSEMOVE=&H200

　　PublicConstWM_LBUTTONDOWN=&H201

　　PublicConstWM_LBUTTONUP=&H202

　　PublicConstWM_LBUTTONDBLCLK=&H203

　　PublicConstWM_RBUTTONDOWN=&H204

　　PublicConstWM_RBUTTONUP=&H205

　　PublicConstWM_RBUTTONDBLCLK=&H206

　　PublicConstSW_RESTORE=9

　　PublicConstSW_HIDE=0

　　PublicnfIconDataAsNOTIFYICONDATA

　　PublicTypeNOTIFYICONDATA

　　　cbSizeAsLong

　　　hWndAsLong

　　　uIDAsLong

　　　uFlagsAsLong

　　　uCallbackMessageAsLong

　　　hIconAsLong

　　　szTipAsString*MAX_TOOLTIP

　　EndType

　　PublicDeclareFunctionShowWindowLib"user32"(ByValhWndAsLong,ByValnCmdShowAsLong)AsLong

　　PublicDeclareFunctionShell_NotifyIconLib"shell32.dll"Alias"Shell_NotifyIconA"(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong

　　　　.szTip=App.Title "(版本"&App.Major&"."&App.Minor&"."&App.Revision&")"&vbNullChar

　　　　.cbSize=Len(nfIconData)

　　　EndWith

　　　CallShell_NotifyIcon(NIM_ADD,nfIconData)

　　　'=============================================================SystemTrayEnd

　　　Me.Hide

　　EndSub

　　5、在Form1的QueryUnload事件中寫入如下代碼：

　　PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)

　　CallShell_NotifyIcon(NIM_DELETE,nfIconData)

　　EndSub

　　6、在Form1的MouseMove事件中寫下如下代碼：

　　PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

　　　DimlMsgAsSingle

　　　lMsg=X/Screen.TwipsPerPixelX

　　　SelectCaselMsg

　　　　CaseWM_LBUTTONUP

　　　　　'MsgBox"請用鼠標右鍵點擊圖標!",vbInformation,"實時播音專家"

　　　　　'單擊左鍵，顯示窗體

　　　　　ShowWindowMe.hWnd,SW_RESTORE

　　　　　'下面兩句的目的是把窗口顯示在窗口最頂層

　　　　　'Me.Show

　　　　　'Me.SetFocus

　　　　　''CaseWM_RBUTTONUP

　　　　　''PopupMenuMenuTray'如果是在系統Tray圖標上點右鍵，則彈出菜單MenuTray

　　　　　''CaseWM_MOUSEMOVE

　　　　　''CaseWM_LBUTTONDOWN

　　　　　''CaseWM_LBUTTONDBLCLK

　　　　　''CaseWM_RBUTTONDOWN

　　　　　''CaseWM_RBUTTONDBLCLK

　　　　　''CaseElse

　　　EndSelect

　　EndSub

　　7、現在將程序保存起來運行看看系統托盤處是否增加了一個本工程的圖標。單擊此圖標，Form1就自動彈出來了。