DTE.Properties("TextEditor", "Basic").Item("ShowLineNumbers").Value = False

DTE.Properties("TextEditor", "Basic").Item("ShowLineNumbers").Value = True

TabSize
IndentSize
InsertTabs
IndentStyle
AutoListMembers
AutoListParams
VirtualSpace
EnableLeftClickForURLs
WordWrap
ShowLineNumbers
ShowNavigationBar
HideAdvancedMembers

Sub ShowBasicProperties()
  Dim Props As Properties
  Dim PropObj As [Property]
  Dim NameValPair As String
 
  Props = DTE.Properties("TextEditor", "Basic")
  MsgBox("Tools – Options – Environment – General Properties Count = " & _
    Props.Count())
  For Each PropObj In Props
    NameValPair = NameValPair & (PropObj.Name & "Value = " & PropObj.Value & _
      Microsoft.VisualBasic.ControlChars.CrLf)
  Next
  MsgBox(NameValPair)
End Sub

Star

Murphy:
 1.) Nichts ist so leicht wie es aussieht!
 2.) Alles dauert l?nger als du denkst!
 3.) Alles, was schief gehen kann, geht schief!