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' return True if ActiveDesktop is activeFunction ActiveDesktop() As Boolean Dim hWindow As Long ' get the handle of Program Manager window hWindow = FindWindowEx(0, 0, "Progman", vbNullString) ' search for its child SHELLDLL_DefView window If hWindow Then hWindow = FindWindowEx(hWindow, 0, "SHELLDLL_DefView", vbNullString) ' finally, search for the Internet Explorer_Server grandchild window If hWindow Then ' if this call returns a non-zero handle, the computer ' is using ActiveDesktop If FindWindowEx(hWindow, 0, "Internet Explorer_Server", _ vbNullString) Then ActiveDesktop = True End If End If End If End Function

4 Areas of Your Company Where Your Audio Really Matters
Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a