Ê¹ ÓÃ Windows APIµÄ HideCarentº¯ Êý £¬ Èç ÏÂ £º 
    Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long 
     
    Private Sub Text1_GotFocus() 
     HideCaret Text1.hwnd 
    End Sub 
<END>
