Try this:
VB Code:
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition 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 Const MF_BYPOSITION = &H400& Private Sub Form_Load() 'Remove sizing Call RemoveMenu(GetSystemMenu(hwnd, 0), 2, MF_BYPOSITION) 'Remove minimizing Call RemoveMenu(GetSystemMenu(hwnd, 0), 2, MF_BYPOSITION) End Sub




Reply With Quote