Ola, juliano
Dá uma olhada:
_______________________________________
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags 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 Const SC_MINIMIZE = &HF020&
Private Const SC_MAXIMIZE = &HF030&
Private Const SC_RESTORE = &HF120&
Private Const SC_CLOSE = &HF060&
Private Const SC_SIZE = &HF000&
Private Const SC_MOVE = &HF010&
Private Const MF_BYCOMMAND = &H0&
Private Sub MDIForm_Load()
Dim lngHMenu As Long
lngHMenu = GetSystemMenu(Me.hwnd, False)
RemoveMenu lngHMenu, SC_SIZE, MF_BYCOMMAND
End Sub
_______________________________________
Preste atençao nos nomes das constantes iniciadas por SC, cada uma se refere ao item do menu de sistema q vc quer retirar do form... vc deve retirar um de cada vez, passando sempre a constante como segundo parametro de RemoveMenu
funciona tanto pra MDI qto para form normal...
Acho q isso te ajuda...
Flw!
