 the control."
    Set UserControl.Font = sFnt
    Set tvwOpt.Font = UserControl.Font
End Property
Property Get Font() As StdFont
    Set Font = UserControl.Font
End Property
Private Sub pInitialise()

    TreeViewTrackSelect tvwOpt, m_bTrackSelect
    Set tvwOpt.ImageList = ilsIcons
    
    If (UserControl.Ambient.UserMode) Then
        '
    Else
        ' In design mode, show some examples:
        Dim nodX As Node
        Set nodX = AddFolder(, , "Sample Folder", , , True)
        AddOption , nodX, "Sa