'*** BEISPIEL bei dem ein Fehler bei Windows-XP auftritt
'    Fehlermeldung: Laufzeitfehler '5':
'                   Ungültiger Prozeduraufruf oder unfültiges Argument
'    HAT JEMAND EINE LÖSUNG FÜR DIESES PROBLEM ???
'    Lösung bitte an: beedl@gmx.at
 
Private Sub Command1_Click()
 
    Dim i As Integer
 
    For i = 1 To 100
        Shell "c:windows
otepad.exe", vbNormalFocus
        Form1.SetFocus  'hier ist der Fehler! Warum?
    Next
 
End Sub