Visual Basic

Dim Price As Currency, TotalPrice As Currency, Tax as Currency, i As Long
    Price = 0
    For i = 0 To 21
        Price = Price + CCur(LBLSelPrice(i).Caption)
    Next
    LblTotal.Caption = Price
    Tax = (Price * 0.18) 
    LblTax.Caption = Tax
    TotalPrice = Tax + Price
    LblGenTotal.Caption = TotalPrice

Module Module1
    Public Enum AnyEnum
        a
        b
    End Enum

    Public Sub Any(ByVal Enumeration As AnyEnum)

    End Sub

    Sub Main()
        Any(AnyEnum.a)

    End Sub

End Module

Module Module1
    Public Enum AnyEnum
        a = 0
        b = 1
    End Enum
    Public Sub Any(ByVal Enumeration As [Enum])

        Dim myenum As AnyEnum = CType(Enumeration, AnyEnum)

        Console.WriteLine(myenum.b)


    End Sub
    Sub Main()
        Console.WriteLine("before")
        Any(New AnyEnum())
        Console.WriteLine("after")
        Console.ReadLine()
    End Sub
End Module

Public Declare Function PostMessage _
            Lib "user32" _
            Alias "PostMessageA" _
                    (ByVal hwnd As IntPtr, _
                     ByVal wMsg As Integer, _
                     ByVal wParam As Integer, _
                     ByVal lParam As Integer) As Integer