关于VB使最小化按钮失效的问题

我用下面的代码是窗口的最小化按钮失效
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd AsLong, ByVal bRevert AsLong) AsLong
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" ( _
ByVal hMenu AsLong, _
ByVal nPosition AsLong, _
ByVal wFlags AsLong, _
ByVal wIDNewItem AsLong, _
ByVal lpString As Any) AsLong
PrivateConst SC_MINIMIZE = &HF020&
PrivateConst SC_MAXIMIZE =&HF030&
PrivateConst MF_BYCOMMAND =&H0
PrivateConst MF_STRING =&H0
PrivateConst MF_ENABLED =&H0&
PrivateConst MF_GRAYED =&H1
PrivateConst MF_DISABLED =&H2&
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hWnd AsLong, _
ByVal hWndInsertAfter AsLong, _
ByVal X AsLong, _
ByVal Y AsLong, _
ByVal nWidth AsLong, _
ByVal nHeight AsLong, _
ByVal wFlags AsLong) AsLong
PrivateConst SWP_NOMOVE =&H2
PrivateConst SWP_NOSIZE =&H1
PrivateConst SWP_NOZORDER =&H4
PrivateConst SWP_FRAMECHANGED =&H20

PublicSub MINIMIZE()
Call ModifyMenu(GetSystemMenu(Form1, False), SC_MINIMIZE, MF_BYCOMMAND + MF_STRING + MF_GRAYED + MF_DISABLED, 0&, "最小化(&X)")
End Sub
但是为什么用同样的方法如下代码却不能还原最小化按钮呢？
Call ModifyMenu(GetSystemMenu(Form1, False), SC_MINIMIZE, MF_BYCOMMAND + MF_STRING + MF_ENABLED, 0&, "最小化(&X)")

只是要使自身程序不能被最小化完全没必要这么麻烦。。。
Dim prevState%
Private Sub Form_Load()
prevState = Me.WindowState
End Sub
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.WindowState = prevState
End If
prevState = Me.WindowState
End Sub
或者连假象都不需要制造的话就直接设置窗体的最小化按钮为false吧。。。

PublicSub MINIMIZE() 关键是在这个方法中。这个方法捕捉的是窗体改变事件。

具体情况不知，vb有一年的时间没碰了，但是如果你想最小化按钮失效的话，为什么不知属性里面设置？很简单的啊

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息