Visual Basic - BOTONES MAXIMIZAR Y MINIMIZAR EN MDI

HOLA AMIGOS, COMO LE QUITO LOS BOTONES DE MAXIMIZAR Y MINIMIZAR AL FORMULARIO MDI, QUE SOLO QUEDE CON EL BOTON CERRAR?

'codigo para quitar botones
#If Win32 Then
'Para 32 bits (VB4 y VB5)
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 nPosition As Long, _
ByVal wFlags As Long) As Long

#Else
'Para 16 bits (VB4 y VB3)
'Private Declare Function GetSystemMenu Lib "User" (ByVal hWnd%, ByVal bRevert%) As Integer
'Private Declare Function DeleteMenu Lib "User" (ByVal hMenu%, ByVal iditem%, ByVal wFlags%) As Integer
#End If

'Constantes
Const SC_SIZE = &HF000
Const SC_MOVE = &HF010
Const SC_MINIMIZE = &HF020
Const SC_MAXIMIZE = &HF030
Const SC_CLOSE = &HF060
Const SC_RESTORE = &HF120

Const MF_SEPARATOR = &H800
Const MF_BYPOSITION = &H400
Const MF_BYCOMMAND = &H0

Private Sub MDIForm_Load()
'codigo para quitar botones
#If Win32 Then
Dim hWnd&, hMenu&, Success&
#Else
Dim hWnd%, hMenu%, Success%
#End If
Dim i%

hWnd = Me.hWnd
hMenu = GetSystemMenu(hWnd, 0)

'Quitar todos (va de 0 a 8)
For i = 8 To 0 Step -1
Success = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
Success = DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)
'Success = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
Success = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND) %0

No me había fijado que no sale entero lo único que falts es esto :
Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
'Success = DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)
'Success = DeleteMenu(hMenu, i, MF_BYPOSITION)

Next
Exit Sub
End Sub

Donde pone Success..... quitas o dejas lo que te interese.En el MDIForm si desactivas los botones de Minimizar y Maximizar se siguen viendo activos pero no funcionarán.
Espero que te sirva.