Setfocus troubles

MY setfocus function had been acting wierd and i was wondering if anyone else has encountered this problem. In my program,when a user enters incorrect data, it deletes the data in that textbox and then i do this

VB Code:

text1.setfocus

It deletes the current text fine but then set's the focus on the textbox below the one i put in the code. It also put the mouse on highlight so hen i move the mouse, it highlights whatever's in the lower textbox. It's not a huge problem but is annoying, could anyone help?

What i do when a user enters incorrect info is just highlight the text for the user. But i had never experienced any problems such as the ones you are mentioning. This is how i do it.


In Module

VB Code:

Public Function Highlight(oTxt As Object)
    oTxt.SetFocus
    oTxt.SelStart = 0
    oTxt.SelLength = Len(oTxt.Text)
End Function

In Form

VB Code:

'This is how you would call it
 
Private Sub cmdBla_Click()
 
   Call Highlight(txtWhatEver)
 
End Sub

Hope this helps :D

That is quite a good idea , Thanks. I think that would look better than my old method. I just noticed that that involves setfocus and since mine is on the fritz, it still won't fix it.