Textfields & cursors

Hi everyone!
Does anybody know if there is a way to make an active textfield (enabled) not to show the blinking vertical cursor?
Thanks a lot

Try:

Code:

---

Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Text1_GotFocus()
    HideCaret Text1.hwnd
End Sub

---

GREAT! Where did you learn that from? Thanks a lot for your support!