Version anzeigen

[xtrem]

Hi alle zusammen,

das Problem mit dem Button kann man auch mit Array lösen

Dim temp(0 To 10) As String

Private Sub Command1_Click()
Static f

f = f + 1
If f > 10 Then
Exit Sub
Else
Command1.Caption = temp(f)
End If
End Sub

Private Sub Form_Load()
For x = 0 To 10
temp(x) = x
DoEvents
Next x
End Sub

gruß xtrem
;-]