Để giải quyết bạn có thể dùng For để quét hết các control là CheckBox rồi kiểm tra xem CheckBox nào được check và ngược lại
For index = 0 To Controls.Count - 1
If TypeOf Controls(index) Is CheckBox Then
If DirectCast(Controls(index), CheckBox).Checked Then
MessageBox.Show(DirectCast(Controls(index), CheckBox).Name + " - 1")
Else
MessageBox.Show(DirectCast(Controls(index), CheckBox).Name + " - 0")
End If
End If
Next