как в VB6 MAXIMIZE=FALSE

[Аслиддин]

можноли в ВБ6 сделать недоступным кнопку MAXIMIZE как в Delphi(clip control)-е т.е. Maximize = false
благодарен заранее

[XPraptor]

Ты бы хоть для порядка потыкал свойства в форме.
MinButton=False
MaxButton=False
Прямо на стадии разработки.

[gaidar]

Покопай подобный код:

Код: Выделить всё

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
Const SC_SIZE = &HF000
Const MF_BYCOMMAND = &H0
Dim hMenu As Long
Private Sub Form_Load()
    hMenu = GetSystemMenu(hwnd, 0)
    Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
End Sub