Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim friends() As String = {"A", "B", "C","D", "E"}
' make friends bigger!
ReDim Preserve friends(6)
friends(5) = "F"
friends(6) = "G"
AddFriendsToList(friends)
End Sub
Shared Sub AddFriendsToList(ByVal friends() As String)
Dim friendName As String
For Each friendName In friends
Console.WriteLine("[" & friendName & "]")
Next
End Sub
End Class
|