Invoquer dynamiquement des propriétés par nom de chaîne à l'aide de VB.NET

Je suis actuellement en train de travailler sur un projet dans lequel une section du code ressemble à ceci:

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

Il continue pendant un certain temps. Le code est évidemment verbeux et il se sent comme il pourrait être amélioré. Est-il possible d'invoquer dynamiquement une propriété dans VB.NET tels que quelque chose comme cela peut être fait:

Dim sReadString As String = oReader.ReadString
Me.Elements.InvokeProperty(sReadString).Value = sReadString
InformationsquelleAutor Tom | 2008-10-27