Module Module1
Sub Main()
Dim intArr As New ArrayList({1, 2, 3, 4})
Dim strArr As New ArrayList
For i As Integer = 0 To intArr.Count - 1
strArr.Add(intArr(i).ToString())
Next
For Each element As String In strArr
Console.WriteLine(element)
Next
End Sub
End Module
'run:
'
' 1
' 2
' 3
' 4