如何使鼠标显示为沙漏？

Question

我的VB程序在查询数据库时，鼠标显示为指针，我想让它显示为沙漏状这样可以知道它在工作。请问如何实现？

Answer 1

要想有沙漏倒不难，
mouseicon,mousepointer,改一下就可以了，
难点是什么时候改变？
关注

Answer 2

'鼠标变成忙状态：
     screen.mousepointer=vbhourglass
   或screen.mousepointer=11
'鼠标变成正常状态：
     screen.mousepointer=vbdefault
   或screen.mousepointer=0

Answer 3

我想让它显示为沙漏状
    Screen.MousePointer = vbHourglass默认：
    Screen.MousePointer = vbDefault-----------------------------------------
Private Sub Command1_Click()
    Screen.MousePointer = vbHourglass
End SubPrivate Sub Command2_Click()
    Screen.MousePointer = vbDefault
End Sub