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 Command1_Click()'隐藏
HideCaret Text1.hwnd
End Sub
Private Sub Command2_Click()'显示
Text1.SetFocus
ShowCaret Text1.hwnd
End Sub