VB 隐藏光标

如题

---

HideCaret'隐藏光标
ShowCaret'显示光标

---

光标和鼠标
Declare Function HideCaret Lib "user32" Alias "HideCaret" (ByVal hwnd As Long) As Long

Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long

---

VB code:
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
...
'隐藏鼠标
While ShowCursor(False) >= 0 '将计数器值减至-1
Wend
...
'显示鼠标
While ShowCursor(True) < 0 '将计数器值加至0
Wend

---

引用

HideCaret'隐藏光标
ShowCaret'显示光标

不行！要引用库

---

不行！可能要引用那个库函数，但不知道是哪个？
谁给一个完整的代码或者告诉是哪个库函数！谢谢了！

---

如是第三者软件上的，比较难办

---

引用

不行！可能要引用那个库函数，但不知道是哪个？
谁给一个完整的代码或者告诉是哪个库函数！谢谢了！

VB code:
'隐藏文本框中的光标
Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As Boolean Private Sub Text1_GotFocus() 　
　HideCaret Text1.hwn