Dim ret As Long, max As Integer, i As Integer
    Dim btInfo As TBBUTTONINFO
    Dim sText As String
    
    tWnd = FindWindow("ExploreWClass", vbNullString)
    tWnd = FindWindowEx(tWnd, ByVal  0 &, "WorkerW", vbNullString)
    tWnd = FindWindowEx(tWnd, ByVal  0 &, "ReBarWindow32", vbNullString)
    tWnd = FindWindowEx(tWnd, ByVal  0 &, "ToolbarWindow32", vbNullString)
    
    max = SendMessage(tWnd, TB_BUTTONCOUNT,  0 ,  0 )
    
    btInfo.cbSize = LenB(btInfo)
    btInfo.dwMask = TBIF_BYINDEX Or TBIF_TEXT
    sText = String( 255 , Chr$( 0 ))
    btInfo.pszText = sText
    btInfo.cchText = Len(sText)

    For i =  0  To max
        ret = (SendMessage(tWnd, TB_GETBUTTONINFO, i, ByVal VarPtr(btInfo)))
        List1.AddItem i & "." & ret & ". " & btInfo.pszText
    Next i