Module Module1
 
    Structure TEST
        Dim b1      As Byte
        Dim i2      As Short
        Dim w3      As UShort
        Dim int4    As Integer
        Dim uint5   As UInteger
        Dim lng6    As Long
        Dim str7    As String
    End Structure
 
    Sub SetValue_Test()
        Dim Test1           As TEST = Nothing
        Dim vt              As ValueType = Nothing
        Dim Type_vt         As System.Type = Nothing
        Dim FieldInfo       As System.Reflection.FieldInfo = Nothing
 
        vt = Test1
        Type_vt = vt.GetType()
        FieldInfo = Type_vt.GetField("str7")
        FieldInfo.SetValue(vt, "Hallo")
        Test1 = CType(vt, TEST)
 
    End Sub
 
    Sub SetValue_Structure(Of T1, T2)(ByRef StructureINOUT As T1, ByVal _
      strFieldName As String, ByVal ValueToSet As T2)
        Dim vt              As ValueType = Nothing
        Dim obj1            As Object = Nothing
 
        ''Fehler	1	Der Wert vom Typ "T1" kann nicht zu "System.ValueType"
        ''konvertiert werden.
        'vt = StructureINOUT
 
        ''Fehler	1	Der Wert vom Typ "T1" kann nicht zu "System.ValueType" 
        ''konvertiert werden.
        'vt = CType(StructureINOUT, System.ValueType)
 
        ''"Ein Objekt muss IConvertible implementieren."
        'obj1 = System.Convert.ChangeType(StructureINOUT, TypeCode.Object)
 
 
    End Sub
 
End Module