Using context As New AdventureWorksEntities()
    Dim queryString As String = "SELECT VALUE contact FROM AdventureWorksEntities.Contacts " & _
            " AS contact WHERE contact.LastName = @ln AND contact.FirstName = @fn"

    Dim contactQuery As New ObjectQuery(Of Contact)(queryString, context)

    ' Add parameters to the collection. 
    contactQuery.Parameters.Add(New ObjectParameter("ln", "Adams"))
    contactQuery.Parameters.Add(New ObjectParameter("fn", "Frances"))

    Dim objectParameterCollection As ObjectParameterCollection = contactQuery.Parameters
    Dim objectParameterArray As ObjectParameter() = New ObjectParameter(objectParameterCollection.Count - 1) {}

    objectParameterCollection.CopyTo(objectParameterArray, 0)

    ' Iterate through the ObjectParameter array. 
    For i As Integer = 0 To objectParameterArray.Length - 1
        Console.WriteLine("Name: {0} Type: {1} Value: {2}", _
                          objectParameterArray(i).Name, objectParameterArray(i).ParameterType, objectParameterArray(i).Value)
    Next
End Using