原创 VB窗体最小化到托盘

可以用API来实现，不过还是采用微软封装好的控件来实现比较方便，不过改控件并不在VB安装目录中，需要找到VB的安装盘的COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY目录，将Systray目录拷到硬盘上面并编译为ocx控件，然后在自己的VB程序中添加改控件。

改控件的属性InTray属性用来设置是否显示在托盘中，True为显示在托盘，False为不显示。

TrayIcon属性是在托盘中显示的图标式样。

TrayTip属性是鼠标移到改控件上面显示的提示文字。

如果要使程序最小化时显示到托盘，如下：

Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then
        cSysTray1.InTray = True
        Me.Visible = False
    End 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