父窗体不能最大化，也不能最小化，用户也不能拖动的实现

Option Explicit

Private Declare Function SetWindowLongLib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long,ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

 

Private Const GWL_STYLE =(-16)

 

Private ConstWS_MAXIMIZEBOX = &H10000

 

Private ConstWS_MINIMIZEBOX = &H20000

Private Declare FunctionGetWindowLong Lib "user32" Alias "GetWindowLongA" (ByValhwnd As Long, ByVal nIndex As Long) As Long

 

Private SubMDIForm_Load()

Dim hStyle As Long

hStyle =GetWindowLong(Me.hwnd, GWL_STYLE)

hStyle = hStyle And NotWS_MAXIMIZEBOX

hStyle = hStyle And NotWS_MINIMIZEBOX

hStyle =SetWindowLong(Me.hwnd, GWL_STYLE, hStyle)

End Sub