如何使鼠标显示为沙漏？

[jljlwsy]

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

[liu584]

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

[饮水需思源]

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

[lxcc]

screen.mousepointer=vbhourclass

[lihonggen0]

我想让它显示为沙漏状
Screen.MousePointer = vbHourglass

默认：
Screen.MousePointer = vbDefault

-----------------------------------------
Private Sub Command1_Click()
Screen.MousePointer = vbHourglass
End Sub

Private Sub Command2_Click()
Screen.MousePointer = vbDefault
End Sub

[DimVar]

在执行一个较长时间的任务前改。