回车后，根据条件选中文本框中的内容

各位老师，又要请教您们一个问题了。我在textbox中输入内容回车后，如果提示没有找到，则选中文本框中的内容，如果鼠标焦点离开文本框时，则清空文本框中的内容，该怎么写代码。多谢老师们知道。

如果提示没有找到，则选中文本框中的内容:
if 条件 then
   没说过box"没有找到"
end if
selstart=0
sellengh=len(textbox1.text)

鼠标焦点,不知道你是想说鼠标，还是焦点？
焦点的话   离开文本框时清空文本框中的内容：
Private   Sub   TextBox1_LostFocus(ByVal   sender   As   Object,   ByVal   e   As   System.EventArgs)   Handles   TextBox1.LostFocus
textbox1.text=""
End   Sub

多谢aoranbuqun老师帮忙，问题是这样的：
在流程卡号对应的文本框中输入内容回车后，如果提示没有找到相关记录，那么就选中流程卡号对应的文本框中的内容，如果鼠标点击了其他的文本框的内容（焦点离开流程卡号对应的文本框），那么就清空流程卡号对应的文本框中的内容。不知道aoranbuqun 老师明白我的意思没有。

aoranbuqun 老师：不知怎么回事？后车后代码没有执行
    MsgBox "没有找到相关记录,请重新输入！"
    Me.TextBox7.SelStart = 0
    Me.TextBox7.SelLength = Len(TextBox7.Text)
    Me.TextBox7.SetFocus
    Lamc.Caption = "产品名称： 无相关记录!"
    Laxh.Caption = "产品型号： 无相关记录!"
    Lasj.Caption = "下单时间： 无相关记录!"
    Layt.Caption = "使用用途： 无相关记录!"
    Ladh.Caption = "任务单号： 无相关记录!"
    Labh.Caption = "印制板号： 无相关记录!"
    Me.CommandButton1.Visible = False
    Cancel = True
回车后，没有选中文本框7中的内容，

[ 本帖最后由 80177850 于 2011-8-8 15:06 编辑 ]

在线期待老师们的帮忙！