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"
--- 31 unchanged lines hidden --- | 21' Sample-Programm fuer Sample-Objekte 22 23Sub Main 24 Dim Sample As SampleObject 25 Dim Element1 As Object, Element2 As Object 26 Set Element1 = Sample!Create "Objekt" 27 Set Element2 = Sample.Create "Objekt" 28 Element1 = "Element 1"
--- 31 unchanged lines hidden --- |