Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Sub MDIForm_Load()
Dim TempStyle As Long
TempStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
TempStyle = TempStyle And Not WS_MINIMIZEBOX '最小化
TempStyle = TempStyle And Not WS_MAXIMIZEBOX '最大化
Call SetWindowLong(Me.hwnd, GWL_STYLE, TempStyle)
End Sub
1)maxbutton = false
minbutton = false
2)Private Declare Function DeleteMenu Lib "user32" Alias "DeleteMenu" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long