Module Module1
     Private Produkte As List(Of Produkt)
    Sub Main()
            Console.Title = "LINQ Cast-Operator Beispiel"
            InitDaten()
            CastBeispiel()
            Console.ReadLine()
    End Sub
    ' Beispiel Cast-Operator
    Sub CastBeispiel()
        Dim AlleProduktPreis = (From P In Produkte Select P.Preis).Cast(Of _
          Single)()
            For Each P In AlleProduktPreis
               Console.WriteLine(P)
            Next
    End Sub
 
    Sub InitDaten()
        Produkte = New List(Of Produkt)
        Produkte.Add(New Produkt With {.ProduktNr = 5000, .ProduktName = _
          "Butter", .Preis = 20})
        Produkte.Add(New Produkt With {.ProduktNr = 5001, .ProduktName = _
        "Salz", .Preis = 30})
        Produkte.Add(New Produkt With {.ProduktNr = 5002, .ProduktName = _
        "Kartoffeln", .Preis = 40})
        Produkte.Add(New Produkt With {.ProduktNr = 5003, .ProduktName = _
        "Wein", .Preis = 50})
    End Sub
 
End Module
 
Class Produkt
    Private _ProduktNr As Integer
    Private _ProduktName As String
    Private _Preis As Double
 
    Property ProduktNr() As Integer
        Get
            Return _ProduktNr
        End Get
        Set(ByVal value As Integer)
            _ProduktNr = value
        End Set
    End Property
 
    Property ProduktName() As String
        Get
            Return _ProduktName
        End Get
        Set(ByVal value As String)
            _ProduktName = value
        End Set
    End Property
 
    Property Preis() As Double
        Get
            Return _Preis
        End Get
        Set(ByVal value As Double)
            _Preis = value
        End Set
    End Property
 
End Class