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