为让你的程序更加专业一点，我们往往需要在程序处理过程时的鼠标形状显示为“沙漏”状态。我们一般的方法是在子程序的开始及结尾编程来改变鼠标形状，这样十分烦琐且容易忘记。我们还可以以下面的方法来实现这一目标：
　　1、创建一个新类，命名为：CHourGlass；
　　2、在此类中加入以下代码：
　　PrivateSubClass_Initialize()
　　Screen.MousePointer=vbHourglass
　　EndSub
　　PrivateSubClass_Terminate()
　　Screen.MousePointer=vbDefault
　　EndSub
　　3、在子程序的开始加入下面代码：
　　DimMyHourGlassAsCHourGlass
　　SetMyHourGlass=NewCHourGlass->