Question

vb中 webbrowser1如何实现最小化到托盘区

 Private Sub F01_Click()ShowWindow Me.hWnd, SW_RESTOREMe.Top = WindowTopMe.Left = WindowLeftCall Shell_NotifyIcon(NIM_DELETE, nfIconData)End SubPrivate Sub F02_Click()Call Shell_NotifyIcon(NIM_DELETE, nfIconData)EndEnd Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim lMsg As SinglelMsg = X / Screen.TwipsPerPixelXSelect Case lMsgCase WM_LBUTTONDBLCLK '双击左键显示窗体，要改成其他的看模块里的定义ShowWindow Me.hWnd, SW_RESTOREMe.Top = WindowTopMe.Left = WindowLeft'Call Shell_NotifyIcon(NIM_DELETE, nfIconData)Me.SetFocusCase WM_RBUTTONUP '在托盘图标上点右键显示菜单PopupMenu F00 '菜单名称为F00，做菜单时你可以改成别的，这里也得改成相应的End SelectEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)'退出程序时删除托盘图标Call Shell_NotifyIcon(NIM_DELETE, nfIconData)End SubPrivate Sub Form_Resize()WindowTop = Me.TopWindowLeft = Me.LeftIf Me.WindowState = 1 ThenWindowStyleEnd IfEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate " http://222.59.193.254"End Sub Private Sub Timer1_Timer()Me.Caption = WebBrowser1.LocationNameIf InStr(Me.Caption, "管理端") > 0 ThenForm1.Width = 13590Form1.Height = 8400Dim oldwidth, oldheightWebBrowser1.Width = 13590WebBrowser1.Height = 8400WebBrowser1.ToolBar = 0Form1.Left = (Screen.Width - Form1.Width) / 2Form1.Top = (Screen.Height - Form1.Height) / 2Timer1.Enabled = FalseEnd IfEnd Sub登陆框可以最小化到托盘区  登陆后WebBrowser1可以最小化到托盘区双击打不开，请问什么问题，小弟刚学的，请各位大虾多多指点！ 

Answer 1

写个双击事件，把WebBrowser1 在显示出来就是了