使鼠标指针变成忙碌状态的VB代码

具体就是把鼠标变成沙漏形状，可以移动，但不能点击，持续30秒，求详细代码写法。

注：是添加在vbs文件里的

窗体添加一个timer控件，Interval设置1000 也就是1秒触发一次。
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i > 30 Then
MousePointer = 1
Else
MousePointer = 11
End If
End Sub

private sub form_mousemove(button as integer, shift as integer, x as single, y as single) form1.caption = "不在label上" end sub

private sub label1_mousemove(button as integer, shift as integer, x as single, y as single) form1.caption = "在label上" end sub

在VB家族语言中，VB、VBScript、VBA、HTA等等都是可以实现你说的这种功能的，因为它们都是本身有界面（或者宿主软件有界面）的，唯独VBS属于无界面运行的脚本语言，而鼠标指针的形状是取决于它所在的窗口或控件的（比如鼠标在某个软件的窗口里是沙漏，移到桌面上又变为默认形状了），VBS没有窗口就无法直接改变鼠标指针的形状，只能通过API函数（SetCursor或SetSystemCursor）来强行改变了。而要在VBS调用API函数本身又是一大学问，这里很难说清楚了，你自己百度一下吧。