对于批量的对象就用循环好了，一个一个复制粘贴并不是很好的解决方案。
创新互联公司-专业网站定制、快速模板网站建设、高性价比海东网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式海东网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖海东地区。费用合理售后完善，10余年实体公司更值得信赖。
首先写好事件处理函数。
Private Sub TextBoxChanged(sender As Object, e As EventArgs)
'一些代码
End Sub
下面是主函数
Dim tests() As TextBox '数组或集合字段名称用复数
Dim num As Integer = 80 '控件总个数
ReDim tests(num)
For i = 0 To tests.Count - 1
Dim item As New TextBox
test(i) = item
AddHandler item.TextChanged, AddressOf TextBoxChanged '绑定对象事件到处理函数
Next
手机写的可能难免有错，理解就行
定义一个类，由两个属性构成，一个实部，一个虚部，都用双精度。
非整数类型包括Decimal(128位)定点数、Single(32位)单精度浮点数和Double(64位)双精度浮点数。他们都是有符号类型。定点数取值不允许有舍入的误差，而浮点数允许有舍入的误差。浮点数的表示形式为：mmmEeee其中mmm为屦，而eee为指数（以10为底），对于非整数类型，值类型D表示Decimal，F表示Single，R表示Double。数字类型一般情况下可以直接相互进行转换.