Dim nm As String = e.Sender.Name

Select Case nm

    Case "普通","高速"

        If e.Sender.Checked Then

            e.Form.Controls("普通").Checked = (nm = "普通")

            e.Form.Controls("高速").Checked = (nm = "高速")

        End If

    Case "checkbox3","checkbox4"

        If e.Sender.Checked Then

            e.Form.Controls("checkbox3").Checked = (nm = "checkbox3")

            e.Form.Controls("checkbox4").Checked = (nm = "checkbox4")

        End If

 Case "CheckBox5","CheckBox6"

        If e.Sender.Checked Then

            e.Form.Controls("CheckBox5").Checked = (nm = "CheckBox5")

            e.Form.Controls("CheckBox6").Checked = (nm = "CheckBox6")

        End If

 Case "CheckBox1","CheckBox2"

        If e.Sender.Checked Then

            e.Form.Controls("CheckBox1").Checked = (nm = "CheckBox1")

            e.Form.Controls("CheckBox2").Checked = (nm = "CheckBox2")

        End If

End Select