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

Dim sample As New MeineVariable(Of Integer)
' ...
sample.Reset()

Ralf