Imports System

imports system.collections.generic

imports Microsoft.VisualBasic.Interaction

Public Module Module1

    public class simple

        public a as integer = 1

        public b as integer = 2

        public c as integer = 3

    end class

    Public Sub Main()

        Dim a as integer = 1

        Dim b as integer = 2

        Dim c as integer = 3

        Dim o as new simple()

        Dim arr as integer() = {a,b,c}

        Dim lst as new list(of object)

        lst.add(a)

        lst.add(b)

        lst.add(c)

        for each x in lst

            x += 1

        next

        Console.WriteLine(a)

        Console.WriteLine(b)

        Console.WriteLine(c)

        for each x in {"a","b","c"}

            CallByName(o,x,Microsoft.VisualBasic.CallType.Set,CallByName(o,x,Microsoft.VisualBasic.CallType.Get) + 1)

            Console.WriteLine(CallByName(o,x,Microsoft.VisualBasic.CallType.Get))

        next

​

    End Sub

End Module