هلا  استاذ كرار  .. وينك اخوي ؟ .. فاقدينك ان شاء الله بخير وعافية تفضل هذا الكود من محفوظاتي : Option Compare Database 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 Const WS_CLOSEBOX = &H80000 Const GWL_STYLE = (-16) Sub RemoveCloseBox() Dim