在文本框作复制、剪切、删除操作时如能截取指定的内容将明显提高速度。

点击文框时全选文本框的内容，代码如下：

Private Sub txtPath_Click()
    Me.txtPath.SelStart = 0                            '指定截取内容的开始位置
    Me.txtPath.SelLength = Len(txtPath)    '指定截取内容的结束位置
End Sub