VB中选中textbox并复制所有文本内容

TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
参考：
https://baijiahao.baidu.com/s?id=1760608257184212072&wfr=spider&for=pc