remove窗体上控件的问题?

[kelor]

Dim control As Control
For Each control In Me.Controls
If TypeOf control Is Button Then
' MessageBox.Show(control.Name)
Me.Controls.Remove(control)
End If

Next
用上面的语句为什么无法一次性把窗体上所有的button删掉.而是每次只删除一半,而用messagebox.show()来显示名称却全部都提示?