Question

OK, that question sounds maybe a little confusing so I’ll try to explain it with an example.

Pretend you have an object like this:

Class Something
    Private varX As New Integer
    Private varY As New String

'[..with the associated property definitions..]

    Public Sub New()
    End Sub

End Class

And another with:

Class JsonObject
    Inherits Dictionary(Of String, String)

    Public Function MakeObject() As Object 'or maybe even somethingObject 
        Dim somethingObject As New Something()

        For Each kvp As KeyValuePair(Of String, String) In Me
            'Here should happen something to use the Key as varX or varY and the Value as value for the varX or varY
            somethingObject.CallByName(Me, kvp.Key, vbGet) = kpv.Value

        Next

        return somethingObject
    End Function

End Class

I’ve got the ‘CallByMe()’ function from a previous question of myself

Answer 1

CallByName works different from the way you are trying to use it. Look at the documentation, it will tell you that in this particular case the correct usage would be

CallByName(Me, kvp.Key, vbSet, kpv.Value)

However, the function CallByName is part of a VB library that isn’t supported on all devices (notably it isn’t included in the .NET Mobile framework) and consequently it’s better not to use it.

Using proper reflection is slightly more complicated but guaranteed to work on all platforms.

Dim t = GetType(Something)
Dim field = t.GetField(kvp.Key, BindingFlags.NonPublic Or BindingFlags.Instance)
field.SetValue(Me, kvp.Value)