В настоящее время я работаю над проектом, где часть кода выглядит следующим образом:

Select Case oReader.Name
    Case "NameExample1"
        Me.Elements.NameExample1.Value = oReader.ReadString
    ....
    Case "NameExampleN"
        Me.Elements.NameExampleN.Value = oReader.ReadString
    ....
End Select

Это продолжается некоторое время. Код, очевидно, многословен, и эточувствует как будто это можно улучшить. Есть ли способ динамически вызывать свойство в VB.NET, чтобы можно было сделать что-то подобное:

Dim sReadString As String = oReader.ReadString
Me.Elements.InvokeProperty(sReadString).Value = sReadString