Nedarvning i klasser?? Hvordan?

i Class2 dim'mer du et objekt (objMyObject) af typen Class1. Herefter kan du hente S ved objMyObject.S

Jeg er desværre ikke så stærk i brugen af klasser, så hvis du kan uddybe det lidt vil jeg være glad!
Min Class1 ser sådan ud:
'Class1
Public S as Double
Dim Dlocal as Class2
Property Get D() as Class2
  Set Dlocal = New Class2
  Set D = Dlocal
End Property
'slut Class1
Min class2 forsøger jeg noget ala:
'Class2
Dim myObject as Class1

Function plus2() as Double
  Set myObject = New Class1  'Her går det galt - men hvor skal jeg ellers
                              'sætte/deklarere myObject ?
  plus2 = myObject.S + 2
End Function
'slut class2

Problemet er at sætter jeg nu S = 2 da vil den fortsat stå som nul i plus2 funktionen når jeg kalder den ved S.D.plus2 .

Da der ikke er nogen accepterede svar lukker jeg nu spørgsmålet.

Wups - den havde jeg glemt.
Stadig interesseret i hjælp? I så fald må det vente, har en deadline i næste uge. øv :o(