Gibt's hier auch VB 5 Xor 6 user?

[BlueNature]

Private Sub Command1_Click()
For i = 0 To (Text1.Text) Step 1
Picture1.BackColor = RGB(255, 255, 255)
Picture1.BackColor = RGB(255, 0, 0) <== unsinnig, da doppelt
TIMEINIT
While TIMEREAD = Val(Text2.Text) <== ">=" verwenden!
DoEvents
<== hier passiert kein Output!!!
Wend
If i = (Text1.Text) Then Exit For <== ebenfalls ">=" verwenden!
Anstatt Exit For auch evtl Exit Sub?
Next i
End Sub