في البرمجة بالفيجوال بيسك 6 يفضل عند القيام بعمل قد يستغرق وقتاً من المعالج، يفضل إعطاء شعور للمستخدم بأن البرنامج مستغرق بعمل ما، ولا يوجد أفضل من تحويل مؤشر الماوس الى الساعة الرملية، ويتم ذلك بالأمر التالي
Screen.MousePointer = VBRUN.MousePointerConstants.vbHourglass
بعد ذلك يمكن ارجاع المؤشر للحالة العادية بالأمر التالي
Screen.MousePointer = VBRUN.MousePointerConstants.vbDefault