Private Sub Command1_Click()
 
Dim i, a
 
On Error Resume Next
For i = 0 To 9
OnesAgain:
 
    Err = 0
    Text1(i).Text = i
    If Err <> 0 Then
        a = MsgBox("Fehler bei : " & i & "Nochmal?", 36)
        If a = 6 Then
            GoTo OnesAgain
        End If
    End If
Nexti:
Next i
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.