Imports System

Public Module Module1

    Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer

    ' by making Generator static, we preserve the same instance '

    ' (i.e., do not create new instances with the same seed over and over) '

    ' between calls '

    Static Generator As System.Random = New System.Random()

    Return Generator.Next(Min, Max)

End Function

    class m2

        public mm as integer

    end class

    class main2

        public int(1) as integer

        public test(9) as m2

    end class

    Private Function ReadStruct(Of T As {New, Class})()

        Dim structArray As New T

        Dim structArraynn As Object = structArray

        structArray = readclasses(structArraynn)

        Return structArray

    End Function

​

    Private Function readclasses(ByVal cls as object) as object

        Dim obj as object = cls

        For Each f As System.Reflection.FieldInfo In obj.GetType().GetFields

            if f.FieldType.ToString = "System.Int32[]" then

                dim yy(1) as integer

                yy(0) = 1

                yy(1) = 3

                f.setvalue(obj,yy)

            ElseIf f.FieldType.ToString = "System.Int32" Then

                dim jj as integer = getrandom(30,100)

                f.setvalue(obj,jj)

            else

                Dim obj2() As Object = f.GetValue(obj)

                Dim MyInstance As Object = Activator.CreateInstance(Type.GetType(f.FieldType.ToString().Replace("[]", "")))

                Dim MyInstance2 As Array = Array.CreateInstance(Type.GetType(f.FieldType.ToString().Replace("[]", "")), obj2.length)

                console.writeline(f.fieldtype.tostring())

                For i As Integer = 1 To obj2.length

                    MyInstance2.SetValue(readclasses(MyInstance), i - 1)

                Next

                f.setvalue(obj,MyInstance2)

            end if

            'console.writeline(f.FieldType.ToString)

        next

        return obj

    end function

    Public Sub Main()

        dim ff as new main2

        ff = readstruct(of main2)()

        console.writeline(ff.test(0).mm)

        console.writeline(ff.test(1).mm)

        console.writeline(ff.test(2).mm)

        console.writeline(ff.test(3).mm)

        ff.test(0).mm = 1

        console.writeline(ff.test(0).mm)

        console.writeline(ff.test(1).mm)

        'Console.WriteLine("Hello World")

    End Sub

End Module