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

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