我在form1中用了30个checkbox控件，它们对应30个label控件，比如当checkbox1.checked=ture时，label1.text=checkbox1.text
但是我现在有30组这样的控件，要是每个控件都要写重复的checkedchanged事件，实在显得很麻烦，请问有没有什么改进的办法？

用 控件组 或 数组

Private Sub CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox_n.CheckedChanged
Dim strName As String = sender.name
Select Case strName
Case "CheckBox1"
TextBox1.Text = CheckBox1.Text
Case "CheckBox2"
TextBox2.Text = CheckBox2.Text
Case "CheckBox3"
TextBox3.Text = CheckBox3.Text
.......
Case "CheckBox_n"
TextBox_n.Text = CheckBox_n.Text
End Select
End Sub

原来如此，谢谢