我有一个label, 从label1到label187, 我想让1-187参与i的循环，如何可以简化？
               
                for i = 6  to 187
                Me.Label6.Text = Ds.Tables(0).Rows(I).Item(2).ToString
                Me.Label7.Text = Ds.Tables(0).Rows(I).Item(3).ToString
                Me.Label8.Text = Ds.Tables(0).Rows(I).Item(4).ToString
                next

可以使用控件数组。

在Net里如何将所有的同类型的加入控件组？谢谢版主

只是修改的话，可以参考下语句试试。

For i = 1 To 10
    DirectCast(Controls.Find("Textbox" & i, True)(0), TextBox).Text = ""
Next

至于控件数组，见例子

Dim TxtFld() As TextBox
n=10
ReDim LableFld(n)
For i=0 to n

 TxtFld(i) = New TextBox

 Form1.Controls.Add(TxtFld(i))

 TxtFld(i).Visible = True

 TxtFld(i).Left = 150

 TxtFld(i).top= n*50+150
Next

另外，最好移步去板块，这个板块会VB的人多，的就只有几个

谢谢版主！