another textbox question

[mastermindz]

Is there any way to get rid of the flashing line in a text box?

[Matthew Gates]

Use the HideCaret API function.

Private Declare Function HideCaret Lib "user32" (ByVal _
hwnd As Long) As Long
 
Private Sub Text1_GotFocus()
    HideCaret Text1.hwnd
End Sub

To show the caret, use the ShowCaret API function.

Private Declare Function ShowCaret Lib "user32" (ByVal _
hwnd As Long) As Long
 
Private Sub Text1_LostFocus()
    ShowCaret Text1.hwnd
End Sub

[mastermindz]

Thanks! Just what I was looking for.