Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowCaret& Lib "user32" (ByVal hwnd As Long)
Private Sub CheckCaret()
If Check1.Value = vbChecked Then
ShowCaret (Text1.hwnd)
Else
HideCaret (Text1.hwnd)
End If
End Sub
Private Sub Form_Load()
Check1.Value = 1
End Sub
Private Sub Text1_Change()
CheckCaret
End Sub
Private Sub Text1_GotFocus()
CheckCaret
End Sub