189 8069 5689
你这错误也不再你给的这段程序里，应该是在你所调用的子窗体里吧，子窗体里面不知道是不是调用了DataSet还是别的。应该是相应的索引值错了
我们提供的服务有：做网站、网站制作、微信公众号开发、网站优化、网站认证、忻州ssl等。为近1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的忻州网站制作公司
问题应该是在这里：
For i As Long = 0 To m_IpCount - 1
m_hostip.Address = MyHostToNet(m_StartIP + i)
m_ScanIP = m_hostip.ToString()
For j As Integer = 0 To m_PortCount - 1
m_ScanPort = m_StartPort + j
m_curscancount += 1
这里你每次获取的数据时不一样的 可能就造成你这个异常有时候发生有时候不发生，这个你要仔细看看这两个循环里面的变量到底是怎么在改变，才能确定最终错误在哪里
Dim Str(20) As String '20数据元素
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '实例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加窗体
Dim Index As Integer = i.TabIndex '没index属性
Str(n) = Index
i.Text = Str(n) 'str数组值赋值给文本框
n += 1
Next
sender就是你要的button了，不需要什么index，要计算index，则通过sender去判断
sub sub1(sender as object,e as eventargs)
sender.text="button1"’设置所点击button控件的text属性。
end sub
addhandler button.click, addressof sub1
vb的index属性指的是数组控件的标识号，也就是识别控件数组中的个别控件。
函数INDEX有两种形式：数组和引用。数组形式通常返回数值或数值数组；引用形式通常返回引用。
语法：
INDEX(array，row_num，column_num)返回数组中指定的单元格或单元格数组的数值。
INDEX(reference，row_num，column_num，area_num)返回引用中指定单元格或单元格区域的引用。
扩展资料：
函数INDEX的参数如下：
Array为单元格区域或数组常数；Row_num为数组中某行的行序号，函数从该行返回数值。如果省略row_num，则必须有column_num；Column_num是数组中某列的列序号，函数从该列返回数值。
如果省略column_num，则必须有row_num。Reference是对一个或多个单元格区域的引用，如果为引用输入一个不连续的选定区域，必须用括号括起来。
Area_num是选择引用中的一个区域，并返回该区域中row_num和column_num的交叉区域。选中或输入的第一个区域序号为1，第二个为2，以此类推。如果省略area_num，则INDEX函数使用区域1。
参考资料来源：百度百科—INDEX函数