Às vezes, queremos selecionar todo o texto na caixa de texto quando o controle da caixa de texto ganha foco. Isso pode ser feito por meio das propriedades SelStart e SelLength. Especificamente, quando o objeto recebe o foco, ele é selecionado pela frente (SelStart = 0) e o comprimento selecionado é o comprimento do texto (Len (Text1)).
SubTexto Privado1_GotFocus()
Texto1.SelStart = 0
Text1.SelLength = Len(Text1)
Finalizar sub
O evento GotFocus ocorre quando um controle ganha foco.