For Each v As View In vista.Panel.GetAllViewsRecursive
If v Is Label Then
Log("Label")
Dim lb As Label = v
lstChecklist.Add("B-" & lb.Text)
Log("B-" & lb.Text)
Else If v Is CheckBox Then
Dim cb As CheckBox = v
Log("CheckBox")
If cb.Checked = True Then
Dim ValC As String = "-T"
Else
Dim ValC As String = "-F"
End If
Log("C-" & cb.Text & ValC)
lstChecklist.Add("C-" & cb.Text & ValC)
End If
Next