我寫(xiě)詳細(xì)一些，記住加分
vb6.0中 讓最大化、最小化按鈕蒸發(fā): 
  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)   
  '使用:   
  Private   Sub   Form_Load()   
  Dim   lWnd   As   Long   
  lWnd   =   GetWindowLong(Me.hwnd,   GWL_STYLE)   
    
  lWnd   =   lWnd   And   Not   (WS_MINIMIZEBOX)   
  lWnd   =   lWnd   And   Not   (WS_MAXIMIZEBOX)   
  lWnd   =   SetWindowLong(Me.hwnd,   GWL_STYLE,   lWnd)   
  End   Sub