17-07-20, 05:08 PM
17-07-20, 05:51 PM
يمكنك أن تستخدم الكود التالي أخي الكريم
كود :
Private Sub Text1_GotFocus()
Text1.Text = "Test"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub