Visual Basic

Dim olfolder As Outlook.MAPIFolder
olfolder = objOL.GetNamespace("MAPI").PickFolder

namespace ConsoleApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            var foo = new Foo();
            foo.Bar = Qux;    // This line fails in VB.NET.
            foo.Baz();
        }

        static void Qux()
        {
            Console.WriteLine(nameof(Qux));
        }
    }

    class Foo
    {
        public Action Bar { get; set; }
        public void Baz()
        {
            Bar();
        }
    }
}

Module Module1
    Sub Main()
        Dim foo As Foo = New Foo()
        foo.Bar = Qux()    ' This line failes.
        foo.Baz()
    End Sub

    Sub Qux()
        Console.WriteLine(NameOf(Qux))
    End Sub

    Class Foo
        Private b As Action
        Public Property Bar() As Action
            Get
                Return b
            End Get
            Set(ByVal value As Action)
                b = value
            End Set
        End Property

        Public Sub Baz()
            b()
        End Sub
    End Class

End Module

Dim dVa As New DataView(tableInventoryItems)
Select Case pSorting
   Case InventoryEriReportDialog.Type_EriReportR2_Sort.ITEM
       dVa.Sort = "FITEMNO"

   Case InventoryEriReportDialog.Type_EriReportR2_Sort.ATD3YA
       dVa.Sort = "FATD3Y_A DESC" 

   Case InventoryEriReportDialog.Type_EriReportR2_Sort.PTDA
      dVa.Sort = "FPTD0_A DESC" 

<pre>  For x = 0 To MonitorCommandsToRun.Lines.Count - 1

                ' Open a session channel.  (It is possible to have multiple
                ' session channels open simultaneously.)
                channelNum = ssh.OpenSessionChannel()
                If (channelNum < 0) Then
                    output.AppendText(ssh.LastErrorText & vbNewLine)
                    Exit Sub
                End If
                success = ssh.SendReqShell(channelNum)
                If (success <> True) Then
                    output.AppendText(ssh.LastErrorText & vbNewLine)
                    Exit Sub
                End If

                success = ssh.ChannelSendString(channelNum, MonitorCommandsToRun.Lines(x).ToString & vbCrLf, "ansi")
                If (success <> True) Then
                    output.AppendText(ssh.LastErrorText & vbNewLine)
                    Exit Sub
                End If


                ' Retrieve and display the output.
                success = ssh.ChannelReceiveUntilMatch(channelNum, myPrompt, "ansi", True)
                If (success <> True) Then
                    output.AppendText(ssh.LastErrorText & vbNewLine)
                    Exit Sub
                End If


                cmdOutput = ssh.GetReceivedText(channelNum, "ansi")
                If (ssh.LastMethodSuccess <> True) Then
                    output.AppendText(ssh.LastErrorText & vbNewLine)
                    Exit Sub
                End If

                success = ssh.ChannelSendEof(channelNum)
                If (success <> True) Then
                    output.AppendText(ssh.LastErrorText & vbNewLine)
                    Exit Sub
                End If

                n = ssh.ChannelReadAndPoll(channelNum, pollTimeoutMs)
                If (n < 0) Then
                    output.AppendText(ssh.LastErrorText & vbNewLine)
                    Exit Sub
                End If

                ' Close the channel:
                success = ssh.ChannelSendClose(channelNum)
                If (success <> True) Then
                    output.AppendText(ssh.LastErrorText & vbNewLine)
                    Exit Sub
                End If

                output.AppendText(cmdOutput & vbNewLine)
            Next

Private Sub btnTotalCost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTotalCost.Click

        lblTotalCost.Text = "YOU HAVE ORDERED:" & vbNewLine

        lblTotalCost.Text = lblTotalCost.Text & "ROOM TYPE" & vbNewLine & "--------" & vbNewLine

        If radLuxury.Checked Then
            lblTotalCost.Text = lblTotalCost.Text & "Luxury = $210" & vbNewLine
        ElseIf radSuperior.Checked Then
            lblTotalCost.Text = lblTotalCost.Text & "Superior = $150" & vbNewLine
        Else
            lblTotalCost.Text = lblTotalCost.Text & "Standard = $110" & vbNewLine
        End If

        lblTotalCost.Text = lblTotalCost.Text & vbNewLine & "MEAL OPTIONS" & vbNewLine & "--------" & vbNewLine

        If chkBufferBreakfast.Checked Then
            lblTotalCost.Text = lblTotalCost.Text & "Buffer Breakfast = $40" & vbNewLine
        End If
        If chkBufferDinner.Checked Then
            lblTotalCost.Text = lblTotalCost.Text & "Buffer Dinner = $60" & vbNewLine
        End If

        lblTotalCost.Text = lblTotalCost.Text & vbNewLine & "AMENITIES" & vbNewLine & "--------" & vbNewLine

        If chkInternet.Checked Then
            lblTotalCost.Text = lblTotalCost.Text & "Internet = $10" & vbNewLine
        End If
        If chkEntertainment.Checked Then
            lblTotalCost.Text = lblTotalCost.Text & "Entertainment = $20" & vbNewLine
        End If
        If chkSpaServices.Checked Then
            lblTotalCost.Text = lblTotalCost.Text & "Spa Services = $50" & vbNewLine
        End If



        
    End Sub