TreeView - Изменение стандартных свойств

    With Me!TreeView1
        .Style = tvwTreelinesPlusMinusText
        .LineStyle = tvwRootLines
        .Indentation = 240
        .Appearance = ccFlat
        .HideSelection = False
        .BorderStyle = ccFixedSingle
        .HotTracking = True
        .FullRowSelect = False
        .Checkboxes = False
        .SingleSel = False
        .Sorted = False
        .Scroll = True
        .LabelEdit = tvwManual
        .Font.Name = "Tahoma"
        .Font.Size = 10
    End With

Или так:

Private Sub Form_Current()
'Событие: Текщая запись
Dim tv As TreeView
   
    Set tv = Me!objTreeView.Object
    'Меняем шрифт TreeView   
    tv.Font.Name = "Tahoma"
    tv.Font.Size = 10

End Sub

При позднем связываниии так:

    With Me.objTreeView
        .Appearance = 0 'ccFlat (0) — рамки нет
        .Style = 6 ' tvwTreelinesPlusMinusText = 6
        .LineStyle = 1 'tvwRootLines (1) - tvwTreeLines (0)
        .Indentation = 480
        .Appearance = 0 ' 0 = ccFlat
        .HideSelection = False
        .BorderStyle = 0 ' ccNone = 0 ccFixedSingle = 1
        '.BorderColor = 16249583
        .HotTracking = False
        '.FullRowSelect = False
        .Checkboxes = False
        .SingleSel = False
        .Sorted = False
        .Scroll = True
        .LabelEdit = 1 '1 = tvwManual
        .Font.Name = "Tahoma" '"Verdana"
        .Font.Size = 12
    End With
    
'Дальше постройка дерава ...