Cursor ausblenden
09.01.2018 01:22:20
Ludmila
Über eine Start_Userform möchte ich den Fortschritt auflisten.
Dabei möchte ich den Mauszeiger ausblenden.
Es wird zwar der Pfeil ausgebendet, dafür erschein der rotierende Kreis.
Wie kann ich dies ändern?
Vielen Dank!
LG
Gruß, Ludmila
Private Declare PtrSafe Function ShowCursor Lib "user32.dll" (ByVal bShow As Long) As Long
Private Sub UserForm_Activate()
Call ShowCursor(0)
lblWarten.Caption = "Bitte warten..."
lblAufruf.Caption = "Kundendaten werden eingelesen..."
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
lblAufruf.Caption = "Mitarbeiterdaten werden erstellt..."
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
lblAufruf.Caption = "Materialdaten werden aufbereitet..."
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
lblAufruf.Caption = "Verzeichnis wird vorbereitet..."
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
lblAufruf.Caption = "Stammdaten werden angelegt..."
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
frmMenu.Show
Unload Me
Call ShowCursor(1)
End Sub