Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
站在用户的角度思考问题，与客户深入沟通，找到恭城网站设计与恭城网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都做网站、网站设计、外贸营销网站建设、企业官网、英文网站、手机端网站、网站推广、域名注册、虚拟主机、企业邮箱。业务覆盖恭城地区。
Dim my_text() As String
my_text = RichTextBox1.Lines
System.Array.Reverse(my_text)
ReDim Preserve my_text(my_text.GetUpperBound(0) - 3)
System.Array.Reverse(my_text)
RichTextBox1.Lines = my_text
End Sub
例如，把文件"E:\新凯散建文腊中件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹"轮孙山).ParseName("a.txt").InvokeVerb "复制(C)"
复制文件夹不用剪贴板，使用系统文件操作对象桥码就好了
CreateObject("scripting.filesystemobject").copyfolder "c:\歼液Program Files"敏改哪, "D:\Program Files"
Clipboard.SetText()是方法，必须给它传递参数才能将内容保存在剪切板上。
Clipboard.SetText(TextBox1.Text);
SelectedText是只读属性，只能读取文本框内选定的内容，而不能对其赋值仔笑腔。
Clipboard.GetText()用于获得剪切板内的内容。如念衫：升蔽
TextBox2.Text=Clipboard.GetText();