Cara Blok (Select All) isi TextBox dengan VB6

1. Buka Project baru
2. Buat:
    1 buah TextBox :
        - Name    : Text1

3. Klik kanan pada form dan pilih view code

4. Buat Private Sub:

Private Sub Blok(tb As TextBox)
tb.SelStart = 0
tb.SelLength = Len(tb.Text)
End Sub

5. Tambahkan code di bawah ini:

Private Sub Text1_Click()
Blok Text1
End Sub

6. Jalankan program (run/F5)
7. Ketika Text1 anda klik maka seluruh isi Text1 akan di blok secara otomatis