har tittat på en kurs på sidan http://www.pellesoft.nu/login/articles/other/oo_grund.asp och jag skulle villa veta livslängden på variabeln energyLevel i klassmodulen.

klassmodul:
Option Explicit
Private energyLevel As Integer 'Lokal kopia för energi-nivå 0-100%

Public Sub charge() 'Interface-metoden för att ladda batteriet
energyLevel = 100
End Sub

Public Function energy() As Integer 'Interface-metoden för att avläsa batteriets laddning
energy = energyLevel
End Function

Form1:
Option Explicit
Private Batteri As New clsBatteri 'Instansiera klassen clsBatteri

Private Sub Command1_Click()
Text1.Text = Batteri.energy 'Visa batterinivå i text1
End Sub

Private Sub Form_Load()
Batteri.charge 'Ladda batteriet
End Sub

Så fort du instansierat objektet (New) så lever variabeln. Den försvinner när objektet tas bort med Nothing eller när objektet går 'out of scope'

/johan/

tack för det