Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long Private Sub Command1_Click() ' ' Don't forget to re-enable it ! ' Static bEnabled As Boolean Dim lhWnd As Long lhWnd = FindWindowEx(0&, 0&, "Shell_TrayWnd", vbNullString) lhWnd = FindWindowEx(lhWnd, 0&, "Button", vbNullString) Call EnableWindow(lhWnd, bEnabled) bEnabled = Not bEnabled End Sub |