[Mohamad Anan]

يمكنك أن تستخدم الكود التالي أخي الكريم

كود :

Private Sub Text1_GotFocus()
   Text1.Text = "Test"
   Text1.SelStart = 0
   Text1.SelLength = Len(Text1.Text)
End Sub