Обратная сторона

Как запретить кнопки Maximize & Minimize для MDI Parent формы?

' создайте MDI-форму

Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const GWL_STYLE = (-16)

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

Private Sub MDIForm_Load()
   Dim L As Long

   L = GetWindowLong(Me.hwnd, GWL_STYLE)
   L = L And Not (WS_MINIMIZEBOX)
   L = L And Not (WS_MAXIMIZEBOX)
   L = SetWindowLong(Me.hwnd, GWL_STYLE, L)
End Sub

Как запретить кнопки Maximize & Minimize для MDI Parent формы? (1 483 байт)