Imports System
Public Class MainClass
Shared Sub Main()
'Declare an array
Dim strFriends(4) As String
'Populate the array
strFriends(0) = "R"
strFriends(1) = "B"
strFriends(2) = "S"
strFriends(3) = "S"
strFriends(4) = "K"
'Add the first array item to the list
System.Console.WriteLine(strFriends(0))
End Sub
End Class