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"