Mittels folgendem Code:
lng_A = Label13.Width
Label13.Width = 0
DoEvents
lng_Z = 1000
For i = 1 To lng_Z
With Label13
.Width = i / lng_Z * lng_A
.TextAlign = fmTextAlignCenter
.BackColor = RGB(0, 0, 256)
.Font.Bold = True
.Caption = Int(i / 10) & "%"
DoEvents
End With
Next
wird mir ein Balken gefüllt und angezeigt.
Nun wollte ich anschließend mittels anderer Schaltfläche den Balken wieder zurücksetzen und dachte mir sicherlich sehr laienhaft, nimm die ersten 3 Codezeilen, aber leider blieb der Balken blau und Caption war 100%. Was muss ich anders machen?
Danke und Tschüss, Frank H.!!!