主题：[求助]项目的最小化按钮事件在哪里？

要绑定事件才行

全局代码 

Public Sub BaseMainform_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    msgbox(sender.WindowState)
End Sub

afterOpenProject，代码

addhandler basemainform.resize, addressof BaseMainform_Resize

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=34553&skin=0

改成这样

AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick '为通知区域图标添加双击事件
nfi.Text = "我是Foxtable" '鼠标移上去显示的文本
nfi.Icon = new Icon(ProjectPath & "\001.ico") '图标地址
nfi.Visible = True '设置为显示
Forms("窗口1").show

全局代码这样写

Public Dim nfi As new System.Windows.Forms.NotifyIcon '定义通知区域小图标

'图标双击事件
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
basemainform.WindowState = 2
basemainform.visible = True
End Sub
Public Sub BaseMainform_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs)
If sender.WindowState = 1 Then
baseMainform.visible=False
End If
End Sub

1、设置 basemainform.TopMost = true

2、不要用 basemainform.Visible，改成

basemainform.WindowState = 0

basemainform.top = -10000

basemainform.left = -10000