mple Option 1"
        AddOption , nodX, "Sample Option 2"
        AddOption , nodX, "Sample Option 3"
        Set nodX = AddFolder(, , "Sample Check Tree", OptionTreeCheck, , True)
        AddCheck , nodX, "Sample Check 1"
        AddCheck , nodX, "Sample Check 2"
        tvwOpt.Nodes(1).Expanded = True
        nodX.Expanded = True
    End If
    
    ' Add default folder type
    ReDim Preserve m_tFolderInfo(1 To 1) As tFolderInfo
    m_tFolderInfo(1).vClosedKey = "FOLDERCLOSED"
    m_tFolderInfo(1).vOpen