Verlaufsbalken in UserForm
19.10.2005 11:47:02
achim
Ich habe nach Anweisung Buch Bernd Held einen Verlaufsbalken in meiner UserForm eingebaut. Nun steht im Buch nicht wie man diese Funktion weiter einbaut.
Ich habe das nun so gemacht aber da zeigt der Verlaufsbalken gleich 100%.
Was muß ich anders machen?
Private Sub CommandButton1_Click()
Dim i As Integer
Dim imax
Label3.Width = 0
imax = 1000
For i = 1 To imax
Label3.Width = (i + 1) / 10
Label3.TextAlign = fmTextAlignCenter
Label3.Caption = Int(i / 10) & "%"
Label3.Font.Bold = True
Label3.ForeColor = RGB(256, 256, 256)
DoEvents
Next
Application.Run "DatenEinstellen"
End Sub
Gruß und danke achim h.