Конференция VBStreets

Как на время выполнения каких-либо операций отобразить аналог песочных часов (на моем кпк это - крутящийся круг)?

Нашел ответ сам

Код: Выделить всё

Module CursorChange

    Declare Function LoadCursor Lib "coredll.dll" (ByVal zeroValue As Integer, ByVal cursorID As Integer) As Integer
    Declare Function SetCursor Lib "coredll.dll" (ByVal cursorHandle As Integer) As Integer

    Public Sub ShowWaitCursor(ByVal bShowCursor As Boolean)
        Dim cursorHandle As Integer = 0

        If bShowCursor Then
            Const hourGlassCursorID As Integer = 32514
            cursorHandle = LoadCursor(0, hourGlassCursorID)
        End If

        SetCursor(cursorHandle)
    End Sub 'ShowWaitCursor
End Module 'Cursor


Вызываем функцию: ShowWaitCursor(True) - показать, ShowWaitCursor(False) - вырубить.