Menyembunyikan Caret RichTextBox Menggunakan VB6

Di bawah ini merupakan kode untuk menyembunyikan caret menggunakan cara yang singkat, TIMER! dan satu fungsi API HideCaret.

'simpan kode ini pada Form 
Option Explicit 
 
Public Declare Function HideCaret Lib "user32" ByVal hwnd As Long) As Long 
 
Private Sub Timer1_Timer() 
    'menyembunyikan caret yang terdapat pada RichTextBox 
    'menggunakan cara singkat tapi kurang begitu baik, TIMER!! 
    HideCaret RichTextBox1.hwnd 
End Sub