[VB6] Eliminare pulsante Massimizza di una finestra MDIForm

[oregon]

Per esempio ...

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 Declare Function GetSystemMenu _
    Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal bRevert As Long) As Long
    
Private Declare Function DeleteMenu _
    Lib "user32" _
    (ByVal hMenu As Long, _
    ByVal iditem As Long, _
    ByVal wFlags As Long) As Long

Private Const GWL_STYLE As Long = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const MF_REMOVE = &H1000&
Private Const SC_MAXIMIZE = &HF030&

Sub MDIForm_Load()
    Dim lWnd As Long
    lWnd = GetWindowLong(hwnd, GWL_STYLE)
    lWnd = lWnd And Not (WS_MAXIMIZEBOX)
    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)

    Dim hMenu As Long
    hMenu = GetSystemMenu(hwnd, 0)
    DeleteMenu hMenu, SC_MAXIMIZE, MF_REMOVE
End Sub