Image = vIconKey
        If (tvwOpt.Nodes(lS).Children &gt; 0) Then
            pRecurseSetChildren tvwOpt.Nodes(lS), vIconKey
        End If
    Next lS
End Sub

Private Sub UserControl_Initialize()
    m_eIconSet = OptionTreeIconsWin98
End Sub

Private Sub UserControl_InitProperties()
    m_bTrackSelect = True
    Set Font = UserControl.Ambient.Font
    pInitialise
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    pInitialise
    Dim sFnt As New StdFont
    With sFnt
        .Nam