主题：[求助]请问实现项目最小化的命令？想做离开密码保护功能。

全局代码 

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