下面为灰度按钮克星的主要代码：

Private Sub GoEnabled(hwndParent As Long)
    Dim hwndChild As Long
    hwndChild = GetWindow(hwndParent, GW_CHILD Or GW_HWNDFIRST)       '获得子窗体的句柄
    Do While hwndChild <> 0
        Call EnableWindow(hwndChild, 0)        '设置为不可用
        GoEnabled hwndChild        '递归查找出子窗体
        hwndChild = GetWindow(hwndChild, GW_HWNDNEXT)
    Loop
End Sub