Autoseleccionar texto en Textbox

[cobein]

Holas estaba necesitando un code para que se seleccione el texto de un Textbox al ganar el foco, algo como el codigo del ejemplo abajo pero la verdad no queria usar un array de controles y mucho menos repetir el codigo por cada evento asi que hice una clase para resolverlo, la adjunto por si a alguien le resulta util.

Código: [Seleccionar]

Private Sub Text1_GotFocus()
    With Text1
        .SelStart = 0: .SelLength = Len(.Text)
    End With
End Sub
http://www.2shared.com/file/tBjqSr3A/SelText.html

Saludos

[E N T E R]

Gracias por compartir. 

Saludos!!!!

[Bazooka]

Buen aporte amigo!

me viene de 10!!!