Imports System Imports System.Collections Public Class MainClass Shared Sub Main(ByVal args As String()) Dim array_list As New ArrayList array_list.Add("A") array_list.Add(1001) array_list.Add("") For Each obj As Object In array_list Console.WriteLine(obj.GetType.ToString) Next obj End Sub End Class