托盤化

cSysTray1.In Private cSysTray1.In

單擊“最小化”按鈕（標題欄的右邊）將視窗縮小為系統列上右邊的圖示，同時隱藏原窗體。單擊或者右鍵托盤化的圖示，可以重現原窗體。
vb中有部分api可以實現將窗體最小化的功能，但是非常繁瑣。這裡有一個非常簡單的辦法：可以用微軟封裝好的控制項來實現，不過該控制項並不在VB安裝目錄中，需要找到VB的安裝盤(不是安裝以後的目錄)的COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY目錄，將Systray目錄拷到硬碟上面並編譯為ocx控制項（編譯前記得要先把唯讀屬性修改掉，有時候會提示要先保存，直接保存。），
然後在自己的VB程式中添加改控制項(工程-部件-瀏覽)。
最好把這個ocx放到C:\WINDOWS\system32。
改控制項的屬性InTray屬性用來設定是否顯示在托盤中，True為顯示在托盤，False為不顯示。TrayIcon屬性是在托盤中顯示的圖示式樣。TrayTip屬性是滑鼠移到改控制項上面顯示的提示文字。如果要使程式最小化時顯示到托盤，如下：
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
cSysTray1.InTray = True
Me.Visible = FalseEnd If
End Sub
點擊托盤圖示後讓程式顯示出來，如下：
Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)
Me.WindowState = vbNormal
Me.Visible = True
cSysTray1.InTray = False
Me.SetFocus
End Sub