Como faço para desabilitar o maxbutton do formulário MDI ou a codificação para fixar seu tamanho?

definir tamanho

 

 

Private Sub MDIForm_Load()
  Me.Height = 6000
  Me.Width = 12000
End Sub

Para remover botoes maximizar e minimizar....detalhe essa function não remove os itens do menu controle de seu form...pra isso seria necessário outra funtion.

 

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 Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const GWL_STYLE As Long = (-16)

Private Sub RemoverBotoesMaxMin()
    Dim lWnd As Long
    lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)

    'Tira o botão de minimizar
    lWnd = lWnd And Not (WS_MINIMIZEBOX)

    'Tira o botão de maximizar
    lWnd = lWnd And Not (WS_MAXIMIZEBOX)

    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
End Sub

 

Depois....faça a chamada da function RemoverBotoesMaxMin no evento Load...do form ...ou no evento que quiser.

 

 

sem mais,