'运用组件实现 For Each i As Object In Me.TabPage2.Controls
If TypeOf i Is CheckBox Then
Dim w As CheckBox
w = CType(i, CheckBox)
w.Checked = False
End If
Next
'运用组件实现 For Each i As Object In Me.TabPage2.Controls
If TypeOf i Is CheckBox Then
Dim w As CheckBox
w = CType(i, CheckBox)
w.Checked = False
End If
Next