TextBox Aktif Hale Geldiğinde Tüm Metni Seçmek

Private Sub Text1_GotFocus()
Screen.ActiveControl.SelStart = 0
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
End Sub