Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Eğer projenizde bir çok metin kutusu bulunuyorsa yukarıdaki iki satırı her metin kutusuna yazmanız zor olacaktır. Bunun için General - Declarations kısmına projenin her tarafından çağırılabilecek aşağıdaki altyordamı yazıp bu altyordamı herhangi bir metin kutusunun Got_Focus özelliğinden SelAllText yazarak çağırmanız daha uygun olacaktır.
Public Sub SelAllText()
Screen, ActiveControl.SelStart = 0
Screen.ActiveControl.SelLength = Len(Screen,ActiveControl.Text)
EndSub