title image


Smiley Selber machen...
Option Explicit



'ListBox "List1" befindet sich auf Form1



Private Sub Form_Load()

Dim i As Integer



On Error Resume Next



For i = 1 To 1100



Err.Clear

Err.Raise i



If Err.Number 0 Then

List1.AddItem ("Fehler # " & Str(Err.Number) & ", " & Err.Description)

End If



Next i



Err.Clear



End Sub

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: