Terkadang kita ingin memilih semua teks di kotak teks ketika kontrol kotak teks mendapatkan fokus. Hal ini dapat dicapai melalui properti SelStart dan SelLength. Khususnya, ketika objek mendapat fokus, objek tersebut dipilih dari depan (SelStart=0), dan panjang yang dipilih adalah panjang teks (Len (Teks1)).
Sub Teks Pribadi1_GotFocus()
Teks1.SelStart = 0
Text1.SelLength = Len(Teks1)
Akhiri Sub
Peristiwa GotFocus terjadi ketika kontrol memperoleh fokus.