COMO FAÇO PARA DESBILITAR O MAXBUTTON E O MINIBUTTON DO FORM MDI, JÁ TENTEI USAR A CIFICAÇÃO ABAIXO MAS NÃO DEU CERTO, DÁ UM ERRO DE VARIÁVEL (GWL_STYLE ) COMO SE NÃO TIVESSE SIDO DECLARADA
'Coloque o seguinte código num módulo:
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)
'No evento MDIForm_Load do MDIForm:
Sub MDIForm_Load()
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
