Class NameDerKlasse : implement system.Collections.IEnumerable
 
  Function GetEnumerate() as System.Collections.IEnumerator
     Return E
  End Function
 
  Dim E as Enumerate
 
  Class Enumerate : Implement system.Collection.IEnumerator
     Public ReadOnly Property Get Current...
     Public Function MoveNext as Boolean
     Public Sub Reset
  End Class
 
End Class

MFG ....


Wenn es das Forum nicht g?b, ich glaub ich h?tte meine Fragen in gro?en Buchstaben in den Sand geschrieben.

Hoffentlich kommt ein Schiff und Jemand kennt eine passende Antwort darauf...