Visual Basic - Como sombrear en un TextBox?

Hola a todos !!!
Estoy realizando una aplicacion en la cual requiero sombrear (Sin el mouse) de unTextBox una parte del texto.
Ya utilice la propiedad SelLenght y no me ha funcionado.

te envio funcion que utilizo yo:

Public Function SelTextControl(ByVal objControl As Object)
On Error GoTo Error_Handler
If TypeName(objControl) = "TextBox" Or _
TypeName(objControl) = "ComboBox" Or _
TypeName(objControl) = "DataCombo" Or _
TypeName(objControl) = "MaskEdBox" _
Then
objControl.SelStart = 0
objControl.SelLength = Len(objControl.Text)
End If
Exit Function
Error_Handler: CallGNVErrorHandler "SelTextControl"
End Function

Ojala te sirva

Mira la propiedad del TextBox HideSelection, tiene que estar a False

PROGRAMAS ESTO DONDE QUIERAS QUE SE INICIE EL SOMBREADO DEL TEXTO:

text1.SelStart = 0
text1.SelLength = Len(text1.Text)

la propiedad del TextBox HideSelection, tiene que estar a False

ME RESPONDES PARA SABER COMO TE FUE

EDUARDO

Gracias Eduardo!!!
Muchos me dijeron como era, pero no me habian dicho que habia que colocar la propiedad HideSelection = False del Textbox para que funcionara.