Sub SetValue_Structure(Of T1 As Structure, T2)(ByRef StructureINOUT As T1, _
      ByVal strFieldName As String, ByVal ValueToSet As T2)
 
        Dim vt As ValueType = Nothing
 
        vt = StructureINOUT
        Dim t As System.Type = vt.GetType
        Dim fi() As Reflection.FieldInfo = t.GetFields
 
        For i As Integer = 0 To fi.Length - 1
            If fi(i).Name = strFieldName Then
                Dim f As Reflection.FieldInfo = t.GetField(strFieldName)
                f.SetValue(vt, ValueToSet)
            End If
        Next i
 
        StructureINOUT = CType(vt, T1)
    End Sub