removing blinking cursor from text field

How can I remove the blinking cursor from a text field that my program is automatically updating? In other words, users won't be entering anything into the text field so how can I edit the text field so that there won't be a cursor inside of it?

Thanks,
Intaglio

I dont know how to take it away bar setting the focus to another control but why not just have the cursor at the end of the string in the field as soon as it updates, it look alright.

Code:

---

Text1.SelStart = Len(Text1.Text)

---

Just an idea!

Text1.Locked = True

yeah locked=true was one of the first things I tried and the cursor still shows up in the field. If I do enabled=false it takes the cursor away but makes the font too light.

Well you can always cheat, set enabled = false then set the forecolor = to whatever it was before that.

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

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

Private Sub Text1_GotFocus()
HideCaret Text1.hwnd
End Sub

Private Sub Text1_LostFocus()
ShowCaret Text1.hwnd
End Sub