Highlighting selected textbox

[Chuck6475]

2003 / w7.

I have a series of textbox(s) in which the user enters data. I'm using the data that the user enters to control whether I advance to the next textbox in the series using SetFocus. It works great but...... the cursor is not (setfocus vertical line flash) is not easy to see, I'd like to change the color of the background of the textbox when it is the "selected" cell and change it back upon advancing to the next cell.

Here is an example of the code:

Private Sub FHole1_Change()
    If Not IsNumeric(FHole1.Text) Then Exit Sub
    If Len(FHole1.Text) = 1 And FHole1.Text <> 1 Then FHole2.SetFocus
    If Len(FHole1.Text) = 2 Then FHole2.SetFocus

        
End Sub

 

[Andrew Poulsom]

You can set the TextBox's BackColor like this:

Private Sub FHole1_Change()
    If Not IsNumeric(FHole1.Text) Then Exit Sub
    If (Len(FHole1.Text) = 1 And FHole1.Text <> 1) Or Len(FHole1.Text) = 2 Then
        FHole2.SetFocus
        FHole2.BackColor = &H8080FF
    End If
End Sub

To reset it use &H80000005&.