Membuat form agar tidak bisa Maximize di VB 6.0

Unknown | 22:52 | vb6
Sebelumnya saya telah memposting cara membuat form agar tidak bisa di resize, kali ini saya akan memposting cara membuat form agar tidak bisa Maximize

Caranya :

1. Buat 1 project Standard.EXE dengan :

• 1 Form

2. Copy source code berikut pada Form : 

Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000

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

Private Sub Form_Load()
Dim lStyle As Long

    'disable MAXIMIZE button
    lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
    lStyle = lStyle And Not WS_MAXIMIZEBOX
    Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub

 3. Jalankan Program