eight)
        End If
    End If
End Sub


Private Sub UserControl_Terminate()
   Set m_cTVB = Nothing
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Dim sFnt As New StdFont
    With sFnt
        .Name = "MS Sans Serif"
        .Size = 8
    End With
    PropBag.WriteProperty "Font", Font, sFnt
    PropBag.WriteProperty "BackColor", BackColor, vbWindowBackground
    PropBag.WriteProperty "ForeColor", ForeColor, vbWindowText
    PropBag.WriteProperty "Indentation", Indentation, 