VB怎么隐藏鼠标

VB如何隐藏鼠标？
如题，谢谢！

[解决办法]
【操作系统】
Win9X:Yes
WinNT:Yes
【说明】
控制鼠标指针的可视性 
【返回值】
Long，显示计数（参考注解） 
【其它】
windows维持着一个内部显示计数；倘若bShow为TRUE，那么每调用一次这个函数，计数就会递增1；反之，如bShow为FALSE，则计数递减1。只有在这个计数大于或等于0的情况下，指针才会显示出来
【参数表】
bShow ---------- Long，TRUE（非零）显示指针，FALSE隐藏

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

VB code

'Example Name:ShowCursorPrivate Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As LongPrivate Sub Form_Load()    'KPD-Team 1998    'URL: http://www.allapi.net/    'E-Mail: KPDTeam@Allapi.net    'Hide the cursor    ShowCursor 0    'Wait 10 seconds    t = Timer    Do: DoEvents: Loop Until Timer > t + 10    'Show the cursor    ShowCursor 1End Sub