If e.Sender.Checked = True Then
For Each c As WinForm.Control In e.Form.Controls
If Typeof c Is WinForm.CheckBox Then '判断控件是否是文本框
Dim t As WinForm.CheckBox = c '使用特定类型的变量引用控件
MessageBox.show(t.Name)
End If
Next