Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim t1 As New classtest("Diese Klasse ist eine Instanz von Test")
        Dim t2 As New classtest("Diese auch")
    End Sub
End Class
 
Public Class classtest
    Private _test As String
 
    Public Sub New(ByVal test As String)
        _test = test
    End Sub
    Public Property test() As String
        Get
            Return _test
        End Get
        Set(ByVal value As String)
            _test = value
        End Set
    End Property
End Class