VB6 Code - Menghilangkan Tombol Max-Min Pada Saat Runtime

Mengenai cara menghilangkan tombol max dan tombol min yang terdapat pada sebelah kanan atas sebuah form - Seperti yang kita tahu bahwa pada form sebelah kanan bagian atas terdapat 3 tombol, yaitu: tombol max, tombol min, dan tombol close. Nah pada kesempatan kali ini kita akan menyembunyikan seluruh tombol menggunakan fungsi API, adapun kodenya adalah sebagai berikut:

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_MINIMIZEBOX = &H20000 
Const WS_MAXIMIZEBOX = &H10000 
Const GWL_STYLE = (-16) 
Const WS_SYSMENU = &H80000 
 
Private Sub Form_Load() 
    Dim l As Long 
    l = GetWindowLong(Me.hwnd, GWL_STYLE) 
    l = (l And Not WS_SYSMENU) 
    l = SetWindowLong(Me.hwnd, GWL_STYLE, l) 
End Sub