Menyembunyikan TextBox dan ComboBox Caret Menggunakan VB6

Terkadang dalam sebuah aplikasi, kita membutuhkan kode untuk menyembunyikan caret yang terdapat dalam TextBox maupun ComboBox. Nah, bagaimana cara menyembunyikan caret yang terdapat dalam TextBox maupun ComboBox menggunakan Visual Basic 6.0 (VB6)? kode di bawah mungkin jawabannya:

'simpan kode di bawah pada modul 
Option Explicit 
 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 
'Public Declare Function HideCaret Lib "user32" ByVal hwnd As Long) As Long 
 
'prosedur memperoleh handle edit yang terdapat   dalam ComboBox 
Public Function EditComboHWND(cmb As ComboBox) As Long 
    Dim r As Long 
    r = FindWindowEx(cmb.hwnd, ByVal 0&, "Edit", vbNullString) 
    EditComboHWND = r 
End Function 

Contoh penggunaan:

'simpan kode ini pada Form 
Option Explicit 
 
Private Sub Combo1_GotFocus() 
    'sembunyikan caret yang terdapat dalam ComboBox 
    HideCaret EditComboHWND(Combo1) 
End Sub 
 
Private Sub Text1_GotFocus() 
    'sembunyikan caret yang terdapat pada TextBox 
      HideCaret Text1.hwnd 
End Sub