Public Class t
        Private _s As String
        Private _i As Integer
        Public Sub New(ByVal s As String, ByVal i As Integer)
            _s = s
            _i = i
        End Sub
        Public ReadOnly Property S() As String
            Get
                Return _s
            End Get
        End Property
        Public ReadOnly Property I() As Integer
            Get
                Return _i
            End Get
        End Property
    End Class
 
    Private t1 As t
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        t1 = New t("Help", 99)
        TextBox1.Text = "S"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim pi As System.Reflection.PropertyInfo = t1.GetType().GetProperty( _
        TextBox1.Text)
        If pi Is Nothing Then
            MsgBox("Property " & TextBox1.Text & " not found")
            Return
        End If
        Dim v As Object = pi.GetValue(t1, Nothing)
        If v Is Nothing Then
            TextBox2.Text = "[null]"
        Else
            TextBox2.Text = v.ToString()
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist