在Excel 中当当我们显示一个VBA中的用户窗体时你会发现此窗体不像一般的程序窗体，它没有最大化和最小化按钮，那我们就来给它添加上最大化和最小化按钮。

 在Excel 的VBE窗口中插入一个用户窗体，将其命名为 MaxMiniUserform。然后再添加一个模块。在窗体和模块中添加后面所列代码。

在工作薄中的任意工作表中添加一窗体按钮控件，将指定其 设置宏  为 ShowForm。其供示范之用

显示效果如下图：

[代码：]

'//************************************************************************
'//显示窗体

Sub ShowForm()
   MaxMiniUserform.Show
End Sub
'/------------------------------------------------------------------------

Option Explicit
'//**************************************************************************
'//此模块演示了给窗体添加最大最小化按钮
'//**************************************************************************
'//以下声明API函数
'//查找窗口
Private Declare Function FindWindow _
    Lib "user32" _
    Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) _
As Long
'//取得窗口样式位
Private Declare Function GetWindowLong _
    Lib "user32" _
    Alias "GetWindowLongA" ( _
        ByVal Hwnd As Long, _
        ByVal nIndex As Long) _
As Long
'//设置窗口样式位
Private Declare Function SetWindowLong _
    Lib "user32" _
    Alias "SetWindowLongA" ( _
        ByVal Hwnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) _
As Long
'//重绘窗体标题栏