Hochzählen in PowerPoint VB-Feld

Hallöchen,

ich habe ein Problem:

Eine Chefin von mir möchte eine PowerPoint-Präsentation gestalten. Allerdings möchte Sie ein Feld, was automatisch bis 100.000 zählt und natürlich jede Veränderung anzeigt.

Also ein Countdown im eigentlichen Sinne, nur umgedreht. Soweit habe ich das mit dem Zählen auch schon hinbekommen.

Habe ein Textfeld über die Steuerelemente-Toolbox eingefügt und eine While-Schleife eingebaut. Diese hier:

Private Sub CommandButton1_Click()

Do While TextBox1 < 100000

TextBox1 = TextBox1 + 1

Loop

End Sub

Das Hochzählen wird über ein Button gestartet. Funktioniert auch soweit. Wenn ich den Button drücke, wird hochgezählt bis 100.000. Allerdings ohne es anzuzeigen. Wenn ich auf den Button klicke bleibt die vordefinierte Zahl 0 im Feld stehen und nach ca. 10 Sek. steht dann eine 100.000 dort.

Aber ich will ja, dass man im dem Feld sieht, wie 0,1,2,3,4,5, bis 100.000 angezeigt wird. Hättet Ihr da eine Idee.

Grüße und Danke
flashhand

Du brauchst irgendein Update oder Repaint, irgendeine Funktion, die den Fensterinhalt oder den Inhalt des Textfelds neuzeichnet.