Userform textbox code to work when selected via TAB

[danbates]

Hi,

Please can someone help me?

I have the following code below that works in my textbox when selected via the mouse.

Private Sub TextBoxTOP_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
        TextBoxTOP = ""
        If TextBoxTOP.ForeColor = myGrey Then TextBoxTOP.ForeColor = vbBlack
End Sub

How can I get the code to work the same when using the TAB button to select the textbox?

Thanks

Dan

 

[Leandroarb]

Hi, are you ok?

Use the Event Enter from the button.

Private Sub TextBoxTOP_Enter()
    TextBoxTOP = ""
    If TextBoxTOP.ForeColor = myGrey Then TextBoxTOP.ForeColor = vbBlack
End Sub

If i understand, when you press tab and enter on the textbox, this code would executed.

 

[danbates]

Hi,

It has worked perfectly, thank you.

Regards

Dan

 

[Leandroarb]

Thank you Dan for this feedback and the !

You're ever wellcome here!