下列程序是文本框的内容选中的例子：

首先在窗体上建立2个文本框，分别是Text1和Text2，然后编写下列过程。
程序运行后，用鼠标在Text1内拖选文字，可以看到Text1_MouseMove事件过程的运行结果。
当Text2内的内容不为空时，用鼠标点击Text2，可以看到Text2_GotFocus事件的运行结果。
Private Sub Form_Load()
    Text1.Text = "文本框选中内容练习"
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text2.Text = Text1.SelText
End Sub

Private Sub Text2_GotFocus()
    Text2.SelStart = 0
    Text2.SelLength = Len(Text2.Text)
End Sub