把所有文本都删掉的代码如下：
网站建设哪家好，找创新互联公司！专注于网页设计、网站建设、微信开发、小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了吴堡免费建站欢迎大家使用！
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = "" ‘这里设置需要清空的文本，""的意思是清空
End Sub
清空所有窗口的话，直接就是把所有的东西都划掉就可以了，很简单的。
1、按以下顺序“启动→所有程序→MicrosoftVisualBasic6.0中文版→MicrosoftVisualBasic6.0中文版”打开VB6.0。
2.在窗体zd的“属性”窗口中，将“标题”和“名称”属性的值更改为“测试”，可以看到项目的标题栏和主体被更改为“测试”。
3.双击“测试”表单，弹出“编程”框。在编程框的“process”框中，选择“Click”点击事件，编写程序“test.print”。
4.关闭通用编程框，按“F5”或单击“start”按钮运行窗体程序。点击表单，文字“百度体验欢迎您”出现，每次点击一次，文字出现一次。
5.继续在“测试”窗体的“过程”框中选择“点击”事件，编写程序“测试”。宽度=测试。宽度+500”。
6.关闭编程框，点击工具栏上的“开始”按钮，运行窗体程序。我们发现，每次我们点击表单，它就会增加500个。
要在VB.NET中清屏已经不再是象是在VB6中那么简单使用一条Cls就能搞定的,因为现在的VB.NET已经是完全面向对象的语言了,方法就不能和以前那样了,下面给出清空窗体的源代码,通过单击按钮清空,如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics
g = Me.CreateGraphics
g.Clear(Me.BackColor)
g.Dispose()
'释放对象g所占用的资源
End Sub
OK,程序已经成功实现你要的功能,运行环境VS.NET2003+Windows 2003 Server
欢迎你加入群:30538950进行交流!
