Question

vb窗体最小化的问题，缩放在托盘区

Private Sub Form_Load()
WebBrowser1.Navigate "baidu.com"
End SubPrivate Sub Timer1_Timer()
Me.Caption = WebBrowser1.LocationName
If InStr(Me.Caption, "管理端") > 0 Then
Form1.Width = 13590
Form1.Height = 8400
Dim oldwidth, oldheight
WebBrowser1.Width = 13590
WebBrowser1.Height = 8400
WebBrowser1.ToolBar = 0
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
Timer1.Enabled = False
End If
End Sub '如何把这段代码加上这窗体最小化呢，点击最小化的时候隐藏在托盘区，
双击或者单击的时候又还原状态。

Answer 1

http://www.hongen.com/pc/program/apitutor/api0012/api01.htm 托盘程序详解 附有源代码