 End If
        End If
    Next lS
    tvwOpt.Nodes(1).EnsureVisible
    LockWindowUpdate 0
End Sub
Private Sub pErr(lErr As Long)
Dim sErr As String
   Select Case lErr
   Case 1
       sErr = "Option cannot be added to the chosen item."
   Case 2
       sErr = "Option cannot be added to a folder containing check boxes."
   Case 3
      sErr = "Folder nodes do not have a value."
   Case 4
      sErr = "You cannot set the value of a node to 'partial'."
   Case 5
      sErr = "Option nodes do not have a fold