Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 8
Dim btn As New Button With {.Width = 10, .Height = 10, .Left = (i Mod 3) * 10, .Top = (i \ 3) * 10 + 50, .Parent = Me}
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For Each Ctrl As Control In Me.Controls
Me.Controls.Remove(Ctrl)
Next
End Sub
End Class

无法移除所有控件
单击 Button1 生成9个小按钮
单击 Button2 只消除部分按钮
求解


呃。。知道了

http://hi.baidu.com/bd_tianda/blog/item/1d24dc16d410745d21a4e94e.html

楼主，我也遇到了同样的问题，你是怎么弄好的勒，告我一下呗。先谢谢了

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 8
Dim btn As New Button With {.Width = 10, .Height = 10, .Left = (i Mod 3) * 10, .Top = (i \ 3) * 10 + 50, .Parent = Me}
me.controls.add(btn)
Next
End Sub
创建好的控件要加入到窗体里。