Visual Basic

"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