灰度按钮克星的VB实现，调用GoEnabled函数即可。原理其实很简单，就是通过EnableWindow实现的，巧妙之处是程序的递归实现。

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