If prog Then Return
Dim v() As Object = Tag_
Dim send As CheckBox = Sender
If checked Then
SelectedList.Add(send.Tag)
SelectedText.Add(send.Text)
Else
SelectedList.RemoveAt(SelectedList.IndexOf(send.Tag))
SelectedText.RemoveAt(SelectedText.IndexOf(send.Text))
End If
If Not(SelectedList.Size < v(0)) Then
For Each vv As CheckBox In ListTemp
If Not(vv.Checked) Then vv.Enabled = False
Next
Else
For Each vv As CheckBox In ListTemp
vv.Enabled = False
Next
End If