1' Sample-Programm fuer Sample-Objekte 2 3Sub Main 4 Dim Sample As SampleObject 5 Dim Element1 As Object, Element2 As Object 6 Set Element1 = Sample!Create "Objekt" 7 Set Element2 = Sample.Create "Objekt" 8 Element1 = "Element 1" 9 Element2 = "Element 2" 10 For i = 0 to 1 11 Print Sample.Objekt( i ) 12 Next 13 'Test der Event-Methode im Sample-Objekt 14 Sample.Event "Bang" 15End Sub 16 17Sub Bang 18 print "Sample-Callback: BANG!" 19End Sub 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40