WaitCursor / HourGlass Nesnesi

WaitCursor veya HourGlass nesnesi bekleme imleci için kullanılır. Oluşturma:

Dim WaitCursor
Set WaitCursor = Doc.CreateSObject("WaitCursor")
' Veya:
Dim HourGlass
Set HourGlass = Doc.CreateSObject("HourGlass")

Özellikler:

• Version (Integer): Versiyon numarası
• ErrorNumber (Integer): Hata numarası
• ErrorText (String): Hata metni

Örnek Kullanım:

Sub Makro1()
    Dim WaitCursor
    Set WaitCursor = Doc.CreateSObject("WaitCursor")
    
    ' Uzun işlemler...
    ' Nesne destroy edildiğinde otomatik olarak bekleme imleci kaldırılır
    
    Set WaitCursor = Nothing
End Sub

---