MDI MAXIMIZAR

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Const WS_MAXIMIZEBOX As Long = &H10000
Public Const GWL_STYLE As Long = (-16)


Private Sub MdiForm_Load()
Dim Mdibutton As Long
    frmMenu.Show

    Mdibutton = GetWindowLong(Me.hwnd, GWL_STYLE)
'   Retira o minimizar
'   Mdibutton = Mdibutton And Not (WS_MINIMIZEBOX)
'   Retira o maximizar
    Mdibutton = Mdibutton And Not (WS_MAXIMIZEBOX)
    Mdibutton = SetWindowLong(Me.hwnd, GWL_STYLE, Mdibutton)
End Sub