如何屏蔽form中的还原窗口按钮？

Question

最大化，最小化口可以屏蔽，如何屏蔽form中的还原窗口按钮？

Answer 1

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongConst MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Const SC_CLOSE = &HF060
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
 Const GWL_STYLE = (-16)Private Sub Form_Load()
    RemoveMenu GetSystemMenu(Me.hwnd, 0), 0, MF_BYPOSITION
End Sub

Answer 2

把窗体的borderstytle属性设为1-fixed single就可以了