Visual Basic

Dim m_startDate As DateTime = New DateTime(2015, 1, 1, 0, 0, 0, 0)
Dim m_stopDate As DateTime = New DateTime(2015, 8, 31, 23, 59, 59, 999)
Dim p_PartNumber as string = "24-FLP44"
using context As New DBContext()

        Dim pResult = _
        (
            From cohc In context.Order_History_Cart
            Join pi In context.ProductInfo On cohc.PartNumber Equals pi.PartNumber
            Join vi In context.ProductInfo_Vendors On pi.VendorID Equals vi.VendorID
            Where cohc.PartNumber = p_PartNumber _
            And cohc.OrderDate >= m_startDate _
            And cohc.OrderDate <= m_stopDate _
            Order By cohc.PartNumber
            Group By pi.PartNumber Into productsSold = Group,
            totalQty = Sum(cohc.Qty),
            totalCost = Sum(cohc.Qty * cohc.Cost),
            totalPrice = Sum(cohc.Qty * cohc.Price)
            Select product = productsSold.Select(Function(m) m.pi).FirstOrDefault(), totalQty, totalCost, totalPrice
            Select 
                product.PartNumber,
                product.MPartNumber,
                product.Cost,
                product.Price,
                totalQty,
                totalCost,
                totalPrice,
                vendor.contactname,
                vendor.streetAddress1
                vendor.streetAddress2
        )   

        pResult.Dump()

end using

"DECLARE @startDate AS DATE; " & _
"DECLARE @stopDate AS DATE; " & _
"SET @startDate = DATETIMEFROMPARTS(@Year, 1, 1, 0, 0, 0, 0); " & _
"SET @stopDate = DATETIMEFROMPARTS(@Year, @LastMonth, @LastDay, 23, 59, 59, 999); " & _
"SELECT " & _
"  sts.StateCode " & _
", sts.StateName " & _
", sts.HasSalesTax " & _
", SUM(oh.SubTotal) AS SubTotal " & _
", sts.StateTaxRate " & _
", SUM(oh.SalesTax) AS SalesTax " & _
" From ORDER_HISTORY oh " & _
"LEFT JOIN Shipping_TaxStates sts " & _
"ON sts.StateCode = oh.SalesTaxState " & _
"WHERE oh.OrderDate > @startDate " & _
"AND ohOrderDate < @stopDate " & _
"GROUP BY sts.StateCode, sts.StateName, sts.StateTaxRate, sts.HasSalesTax " & _
"ORDER BY sts.StateName "

Dim m_startDate As DateTime = New DateTime(p_Year, 1, 1, 0, 0, 0, 0)
Dim m_stopDate As DateTime = New DateTime(p_Year, p_LastMonth, p_LastDay, 23, 59, 59, 999)

        Dim context As New DBContext()

        pResults = _
        (
           From oh In context.Order_History
           Where oh.OrderDate >= m_startDate _
           And oh.OrderDate <= m_stopDate _
           And oh.OrderStatus = "COMPLETED"
           Group By oh = New With
           {
               oh.SalesTaxState,
               oh.SubTotal,
               oh.SalesTax
           } Into Group
           Select New With
           {
               .StateCode = oh.SalesTaxState,
               .subTotal = Group.Sum(Function(m) m.SubTotal),
               .salesTax = Group.Sum(Function(m) m.SalesTax)
           }
       )

Public Class BaseForm
    Inherits System.Windows.Forms.Form
  ......
    Friend WithEvents MnuBaseFile As System.Windows.Forms.MenuItem
    Friend WithEvents MnuBaseWindow As System.Windows.Forms.MenuItem
    Friend WithEvents MnuBaseFileExit As System.Windows.Forms.MenuItem
....
For Each fp In My.Forms.GetType.GetProperties 
  If fp.Name = "BaseForm" Then
                For Each mnu As MenuItem In Me.Menu.MenuItems

 Dim fi As System.Reflection.FieldInfo() = bfType.GetFields(BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)

For Each f As System.Reflection.FieldInfo In fi
    If (f.FieldType.Name.ToString() = "MenuItem") Then
       mnuNameStr = f.Name.Remove(0, 1)
    End If