Tandai semua character di dalam textbox

Persiapan :
1. 1 Form
2. 1 TextBox

masuk ke form code dan tulis source seperti di bawah ini

Code:

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

ketika qta fokus ke textbox masa semua karakter akan di tandai