谢谢大神提供的思路，现在实现了，万分感谢
Private Sub Command4_Click()
Dim i As Integer
For i = 1 To 10
Call Command3_Click
Next i
End Sub

你现在的做法是做10次迭代，适用性要注意了
如果遇到复杂的问题，未必可以迭代到最终状态哦。

嗯嗯，我是个初学者，能得到大神的帮助，受宠若惊啊，以后好好学。谢谢！

这代码好乱