Please help getting this code to work using Visual Basic coding.

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'Get data from Lineitems And Product Class

Dim LineitemList As List(Of LineItem) = LineItemDB.GetLineItems

Dim ProductList As List(Of Product) = ProductDB.GetProducts

'Query expression

Dim Lineitems =

From lineitem In LineitemList

Join product In ProductList

On lineitem.InvoiceID Equals product.Description

Order By lineitem.InvoiceID, lineitem.ItemTotal Descending

Select product.Description, lineitem.UnitPrice, lineitem.Quantity,

lineitem.ItemTotal

'Execute the Query

Dim InvoiceID As String = ""

Dim i As Integer = 0

For Each lineitem In Lineitems

If .InvoiceID <> Product.Description Then

lineitem.InvoiceID.Add(lineitem.InvoiceID)

ProductDescription = lineitem.InvoiceID

Else

Lineitems.product.Add("")

End If

ListViewItem.Items(i).SubItems.Add(lineitem.InvoiceID.ToString)

Next

End Sub

Can someone correct this code in Visual Basic coding?

Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged

End Sub

End Class