サンプルコード Sub FontsAndColorsItemsExample() Dim props As EnvDTE.Properties props = DTE.Properties("FontsAndColors", "TextEditor") Dim prop As EnvDTE.Property = props.Item("FontsAndColorsItems") Dim clritems As EnvDTE.FontsAndColorsItems = prop.Object Dim clritem As EnvDTE.ColorableItems Dim ClrList As String For Each clritem In clritems ClrList += clritem.Name + " (" + clritem.Foreground.ToString() + ")" ClrList += Chr(13) & Chr(10) Next MsgBox(ClrList) End Sub