Controlli - Selezionare Tutto Il Testo Contenuto Dentro Una TextBox

Text #
Private Sub Text1_GotFocus()
SendKeys "{home}+{end}"
End Sub