Keep focus on one text box

[4SaKeN]

hi there

Im looking to keep focus in my first text box even after i have selected on different options.

basically i have 10 command buttons giving different info into the txtNamebox.Text

Private Sub cmdIcon_click(Index As Integer)
 
    Select Case Index
        Case 0
            txtNamebox.Text = txtNamebox.Text + Format$("1")
        Case 1
            txtNamebox.Text = txtNamebox.Text + Format$("2")

But after selecting one of them command buttons , i have to manually select the first text box again to type into.
.Please help/


I have the first text box as tab index 0 and the rest disabled but that doesnt work

[Keithuk]

Private Sub cmdIcon_click(Index As Integer)
 
Select Case Index
        Case 0
            txtNamebox.Text = txtNamebox.Text + Format$("1")
        Case 1
            txtNamebox.Text = txtNamebox.Text + Format$("2")
End Select
 
txtNamebox.SetFocus
 
End Sub

[4SaKeN]

ahaha setFocus man you rock thanks

[4SaKeN]

that worked great how ever i need it to goto the end of the text box no matter what data is in there.

thanks

[Pradeep1210]

Private Sub Text1_GotFocus()
    Text1.SelStart = Len(Text1)
End Sub

[4SaKeN]

sorry maybe im not explaining this right,

After i select a command button i want i too automatically go back to Textbox 1 > and setfocus to the end of the Textbox1

[4SaKeN]

ahh yer i see what i needed to do now .

thanks alot

[Keithuk]

Private Sub Command1_Click()
 
Text1.SelStart = Len(Text1.Text)
Text1.SetFocus
 
End Sub