[ALBRNS]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي

PHP كود :

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private Sub MDIForm_Load()
Dim AStyle As Long
AStyle = GetWindowLong(Me.hWnd, GWL_STYLE)
AStyle = AStyle And Not WS_MINIMIZEBOX
AStyle = AStyle And Not WS_MAXIMIZEBOX
AStyle = AStyle And Not WS_SYSMENU
Call SetWindowLong(Me.hWnd, GWL_STYLE, AStyle)
End Sub 


بالتوفيق