Public Class Testklasse
 
Private myTestVar as String
 
Public Property TestProperty() as string
      Get
         Return myTestVar
      end Get
      Set(ByVal value As String)
            myTestVar = value
      End Set
End Property
 
Public Sub New (byval TestVar as string)
 Me.TestProperty = TestVar ' so ?
 myTestVar = TestVar       ' oder so ?
End Sub
 
end Class

VB RULEZ !