Private Sub Command1_Click()
Dim ctl As Control
For Each ctl In Controls
If TypeOf ctl Is TextBox Then ctl.Text = ""
Next ctl
End Sub
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub不管有多少文本 都可以按这个易懂的方法
TextBox1.Clear