' Show the token properties for each token 
' in the AddInToken collection (tokens),
' preceded by the add-in number in [] brackets.

Dim tokNumber As Integer = 1
For Each tok As AddInToken In tokens
    Console.WriteLine(vbTab & "{0}: {1} - {2}" & _
            vbLf & vbTab & "{3}" & _
            vbLf & vbTab & "{4}" & _
            vbLf & vbTab & "{5} - {6}", _
            tokNumber.ToString, tok.Name, _
            tok.AddInFullName, tok.AssemblyName, _
            tok.Description, tok.Version, tok.Publisher)
    tokNumber = tokNumber + 1
Next