Public Class MeineVariable
        Private defValue As Object = Nothing
        Private value As Object
 
        Public Sub New(ByVal DefaultValue As Object)
            defValue = DefaultValue
        End Sub
 
        Public ReadOnly Property DefaultValue()
            Get
                Return defValue
            End Get
        End Property
 
        Public Property MyValue()
            Get
                Return value
            End Get
            Set(ByVal value)
                Me.value = value
            End Set
        End Property
 
        Public Sub Reset()
            Me.MyValue = Me.DefaultValue
        End Sub
 
    End Class

 Public Sub Beispiel()            
 
        Dim b As new MeineVariable(10)         
 
 
 
        For i as integer = 0 To 100          
            b.Reset                         
            b.MyValue = b.MyValue + i             
            Console.WriteLine(b.DefaultValue)  
 
        Next                      
 
    End Sub