Private sub Form_Load()
dim i as integer
for i=0 to 10
MsgBox "Hallo!"
If i=2 then
Msgbox "Tschüss"
End If
Next
End Sub

Private sub Form_Load()
  dim i as integer
  for i=0 to 10
    MsgBox "Hallo!"
    If i=2 then
      Msgbox "Tschüss"
    End If
   Next
end sub

_________________________________________________________
www.proofs-site.de.vu
Meine VB-Seite!