Imports System
Imports System.Linq
Imports System.Collections
Public Class Program
Public Shared Sub Main()
Dim al As ArrayList = New ArrayList From {
"c#",
354,
"vb",
True,
3.14,
"c",
"java"
}
Dim onlystrings = al.OfType(Of String)()
For Each str In onlystrings
Console.WriteLine(str)
Next
End Sub
End Class
' run:
'
' c#
' vb
' c
' java
'