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 RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Sub MDIForm_Load()
Dim lRet As Long
Dim hSysmenu As Long
' desactivar los botones de la barra
lRet = GetWindowLong(Me.hwnd, -16)
lRet = lRet And Not (&H20000) ' minimizar
lRet = lRet And Not (&H10000) ' maximizar
lRet = SetWindowLong(Me.hwnd, GWL_STYLE, lRet)
' Desactivar las opciones del menú del MDI (esq.superior izq)
hSysmenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu hSysmenu, 4, &H400& ' maximizar
RemoveMenu hSysmenu, 3, &H400& ' minimizar
RemoveMenu hSysmenu, 2, &H400& ' tamaño
End Sub
Saludos