'This code is designed to give you the text associated to each of the task tray icons. 'Created by Stevan Mitrovic. 'First you will need to add a reference to the project. So click on "Project" 'in the menu and select "References..." from the drop dowm list. Once the 'references dialog box pops up, click on the "Browse.." button. A "Add Reference" 'dialog box will pop up. Goto your system32 folder and find "oleacc.dll", select 'it and then press the open button. You should now see a checked off "Accessibility" 'in the list. Click on the "OK" button and your ready to go. 'The next things you'll need to add, are to your form. You will need a '"Command button" (Command1), a "Label" (Label1), a "textbox" (Text1) and 'a "Listbox" (List1). Now cut and paste the following code into your Form1 'and run it. 'Region Toolbar button styles Private Const TBSTYLE_BUTTON = &H0 Private Const TBSTYLE_SEP = &H1 Private Const TBSTYLE_CHECK = &H2 Private Const TBSTYLE_GROUP = &H4 Private Const TBSTYLE_CHECKGROUP = (TBSTYLE_GROUP Or TBSTYLE_CHECK) Private Const TBSTYLE_DROPDOWN = &H8 Private Const TBSTYLE_AUTOSIZE = &H10 Private Const TBSTYLE_NOPREFIX = &H20 Private Const TBSTYLE_TOOLTIPS = &H100 Private Const TBSTYLE_WRAPABLE = &H200 Private Const TBSTYLE_ALTDRAG = &H400 Private Const TBSTYLE_FLAT = &H800 Private Const TBSTYLE_LIST = &H1000 Private Const TBSTYLE_CUSTOMERASE = &H2000 Private Const TBSTYLE_REGISTERDROP = &H4000 Private Const TBSTYLE_TRANSPARENT = &H8000& Private Const TBSTYLE_DRAWDDARROWS = &H1 Private Const WM_USER = &H400& 'Region ToolBar Messages Private Const TB_ENABLEBUTTON = (WM_USER + 1) Private Const TB_CHECKBUTTON = (WM_USER + 2) Private Const TB_PRESSBUTTON = (WM_USER + 3) Private Const TB_HIDEBUTTON = (WM_USER + 4) Private Const TB_INDETERMINATE = (WM_USER + 5) Private Const TB_MARKBUTTON = (WM_USER + 6) Private Const TB_ISBUTTONENABLED = (WM_USER + 9) Private Const TB_ISBUTTONCHECKED = (WM_USER + 10) Private Const TB_ISBUTTONPRESSED = (WM_USER + 11) Private Const TB_ISBUTTONHIDDEN = (WM_USER + 12) Private Const TB_ISBUTTONINDETERMINATE = (WM_USER + 13) Private Const TB_ISBUTTONHIGHLIGHTED = (WM_USER + 14) Private Const TB_SETSTATE = (WM_USER + 17) Private Const TB_GETSTATE = (WM_USER + 18) Private Const TB_ADDBITMAP = (WM_USER + 19) Private Const TB_ADDBUTTONSA = (WM_USER + 20) Private Const TB_INSERTBUTTONA = (WM_USER + 21) Private Const TB_ADDBUTTONS = (WM_USER + 20) Private Const TB_INSERTBUTTON = (WM_USER + 21) Private Const TB_DELETEBUTTON = (WM_USER + 22) Private Const TB_GETBUTTON = (WM_USER + 23) Private Const TB_BUTTONCOUNT = (WM_USER + 24) Private Const TB_COMMANDTOINDEX = (WM_USER + 25) Private Const TB_SAVERESTOREA = (WM_USER + 26) Private Const TB_CUSTOMIZE = (WM_USER + 27) Private Const TB_ADDSTRINGA = (WM_USER + 28) Private Const TB_GETITEMRECT = (WM_USER + 29) Private Const TB_BUTTONSTRUCTSIZE = (WM_USER + 30) Private Const TB_SETBUTTONSIZE = (WM_USER + 31) Private Const TB_SETBITMAPSIZE = (WM_USER + 32) Private Const TB_AUTOSIZE = (WM_USER + 33) Private Const TB_GETTOOLTIPS = (WM_USER + 35) Private Const TB_SETTOOLTIPS = (WM_USER + 36) Private Const TB_SETPARENT = (WM_USER + 37) Private Const TB_SETROWS = (WM_USER + 39) Private Const TB_GETROWS = (WM_USER + 40) Private Const TB_GETBITMAPFLAGS = (WM_USER + 41) Private Const TB_SETCMDID = (WM_USER + 42) Private Const TB_CHANGEBITMAP = (WM_USER + 43) Private Const TB_GETBITMAP = (WM_USER + 44) Private Const TB_GETBUTTONTEXTA = (WM_USER + 45) Private Const TB_REPLACEBITMAP = (WM_USER + 46) Private Const TB_SETINDENT = (WM_USER + 47) Private Const TB_SETIMAGELIST = (WM_USER + 48) Private Const TB_GETIMAGELIST = (WM_USER + 49) Private Const TB_LOADIMAGES = (WM_USER + 50) Private Const TB_GETRECT = (WM_USER + 51) Private Const TB_SETHOTIMAGELIST = (WM_USER + 52) Private Const TB_GETHOTIMAGELIST = (WM_USER + 53) Private Const TB_SETDISABLEDIMAGELIST = (WM_USER + 54) Private Const TB_GETDISABLEDIMAGELIST = (WM_USER + 55) Private Const TB_SETSTYLE = (WM_USER + 56) Private Const TB_GETSTYLE = (WM_USER + 57) Private Const TB_GETBUTTONSIZE = (WM_USER + 58) Private Const TB_SETBUTTONWIDTH = (WM_USER + 59) Private Const TB_SETMAXTEXTROWS = (WM_USER + 60) Private Const TB_GETTEXTROWS = (WM_USER + 61) Private Const TB_GETOBJECT = (WM_USER + 62) Private Const TB_GETBUTTONINFOW = (WM_USER + 63) Private Const TB_SETBUTTONINFOW = (WM_USER + 64) Private Const TB_GETBUTTONINFOA = (WM_USER + 65) Private Const TB_SETBUTTONINFOA = (WM_USER + 66) Private Const TB_INSERTBUTTONW = (WM_USER + 67) Private Const TB_ADDBUTTONSW = (WM_USER + 68) Private Const TB_HITTEST = (WM_USER + 69) Private Const TB_SETDRAWTEXTFLAGS = (WM_USER + 70) Private Const TB_GETHOTITEM = (WM_USER + 71) Private Const TB_SETHOTITEM = (WM_USER + 72) Private Const TB_SETANCHORHIGHLIGHT = (WM_USER + 73) Private Const TB_GETANCHORHIGHLIGHT = (WM_USER + 74) Private Const TB_GETBUTTONTEXTW = (WM_USER + 75) Private Const TB_SAVERESTOREW = (WM_USER + 76) Private Const TB_ADDSTRINGW = (WM_USER + 77) Private Const TB_MAPACCELERATORA = (WM_USER + 78) Private Const TB_GETINSERTMARK = (WM_USER + 79) Private Const TB_SETINSERTMARK = (WM_USER + 80) Private Const TB_INSERTMARKHITTEST = (WM_USER + 81) Private Const TB_MOVEBUTTON = (WM_USER + 82) Private Const TB_GETMAXSIZE = (WM_USER + 83) Private Const TB_SETEXTENDEDSTYLE = (WM_USER + 84) Private Const TB_GETEXTENDEDSTYLE = (WM_USER + 85) Private Const TB_GETPADDING = (WM_USER + 86) Private Const TB_SETPADDING = (WM_USER + 87) Private Const TB_SETINSERTMARKCOLOR = (WM_USER + 88) Private Const TB_GETINSERTMARKCOLOR = (WM_USER + 89) Private Const TB_GETSTRINGW = (WM_USER + 91) Private Const TB_GETSTRINGA = (WM_USER + 92) ' Reserved IDs for system objects Private Const OBJID_WINDOW = &H0& Private Const OBJID_SYSMENU = &HFFFFFFFF Private Const OBJID_TITLEBAR = &HFFFFFFFE Private Const OBJID_MENU = &HFFFFFFFD Private Const OBJID_CLIENT = &HFFFFFFFC Private Const OBJID_VSCROLL = &HFFFFFFFB Private Const OBJID_HSCROLL = &HFFFFFFFA Private Const OBJID_SIZEGRIP = &HFFFFFFF9 Private Const OBJID_CARET = &HFFFFFFF8 Private Const OBJID_CURSOR = &HFFFFFFF7 Private Const OBJID_ALERT = &HFFFFFFF6 Private Const OBJID_SOUND = &HFFFFFFF5 Private Const OBJID_QUERYCLASSNAMEIDX = &HFFFFFFF4 Private Const OBJID_NATIVEOM = &HFFFFFFF0 Private Type TBBUTTON iBitmap As Long idCommand As Long fsState As Byte fsStyle As Byte bReserved1 As Byte bReserved2 As Byte dwData As Long iString As Long End Type Private Type UUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type 'WINAPI declarations Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 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 'Active Accessibility declarations Private Declare Function AccessibleObjectFromWindow Lib "oleacc" (ByVal hwnd As Long, ByVal dwId As Long, riid As UUID, ppvObject As Object) As Long Private Declare Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As IAccessible, ByVal iChildStart As Long, ByVal cChildren As Long, rgvarChildren As Variant, pcObtained As Long) As Long Private Declare Function GetRoleText Lib "oleacc" Alias "GetRoleTextA" (ByVal dwRole As Long, ByVal szRole As String, ByVal cchRoleMax As Integer) As Long Private Declare Function GetStateText Lib "oleacc" Alias "GetStateTextA" (ByVal dwStateBit As Long, ByVal szState As String, ByVal cchStateBitMax As Integer) As Long

Private Sub Command1_Click() On Error Resume Next Dim iTrayButtonsCount As Long Dim hWndTray As Long Dim hWndTray2 As Long Dim hWndToolBar As Long Dim iBtnIndex As Integer Dim iTextLen As Integer Dim lRet As Long Dim Av() As Variant Dim UID1 As UUID Dim Ob As IAccessible Dim lStart As Long Dim LNum As Long With UID1 .Data1 = &H618736E0 .Data2 = &H3C3D .Data3 = &H11CF .Data4(0) = &H81 .Data4(1) = &HC .Data4(2) = &H0 .Data4(3) = &HAA .Data4(4) = &H0 .Data4(5) = &H38 .Data4(6) = &H9B .Data4(7) = &H71 End With List1.Clear hWndTray = FindWindow("Shell_TrayWnd", vbNullString) hWndTray2 = FindWindowEx(hWndTray, 0, "TrayNotifyWnd", vbNullString) hWndToolBar = FindWindowEx(hWndTray2, 0, "ToolbarWindow32", vbNullString) If hWndToolBar Then lRet = AccessibleObjectFromWindow(ByVal hWndToolBar, OBJID_CLIENT, UID1, Ob) iTrayButtonsCount = SendMessage(hWndToolBar, TB_BUTTONCOUNT, 0, 0) Text1.Text = Str(iTrayButtonsCount) LNum = Ob.accChildCount ReDim Av(0 To LNum) As Variant lRet = AccessibleChildren(Ob, lStart, LNum, Av(0), LNumRet) For iBtnIndex = 0 To iTrayButtonsCount 'Getting the text length. iTextLen = SendMessage(hWndToolBar, TB_GETBUTTONTEXTW, iBtnIndex, 0) If iTextLen >= 0 Then List1.AddItem Str(iBtnIndex) & " - " & Str(iTextLen) & vbTab & " - " & Ob.accName(Av(iBtnIndex)) Next iBtnIndex Set Ob = Nothing End If End Sub