Rem 使用API函数屏蔽文字光标:Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As LongPrivate Sub Text1_GotFocus()HideCaret Text1.hwndEnd SubRem 改变Text1默认的鼠标光标Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.MousePointer = 1End Sub...