con)
        If (bBold) Then
            nodX.Selected = True
            SelectedNodeIsBold = True
        End If
        Set AddOption = nodX
    End If
End Function
Public Sub ExpandAll()
Attribute ExpandAll.VB_Description = "Expands all nodes in the control."
Dim lS As Long
    LockWindowUpdate tvwOpt.hwnd
    For lS = 1 To tvwOpt.Nodes.Count
        If (tvwOpt.Nodes(lS).Children &gt; 0) Then
            If Not (tvwOpt.Nodes(lS).Expanded) Then
                tvwOpt.Nodes(lS).Expanded = True
           