Visual Basic

Public Type egStruct
    a As Integer
    b As Integer
End Type

Structure egStruct
    Public a As Integer
    Public b As Integer
End Structure

<br />
Function LaunchRemoteProgram(program As String, Optional user As String = "", Optional pass As String = "", Optional servername As String = ".") As Integer<br />
    Dim objLocator As WbemScripting.SWbemLocator<br />
    Dim objService As WbemScripting.SWbemServices<br />
    Dim objInstance As WbemScripting.SWbemObject<br />
    <br />
    Set objLocator = New WbemScripting.SWbemLocator<br />
    On Error Resume Next<br />
    If servername = "." Then<br />
        Set objService = objLocator.ConnectServer(".", "root\cimv2")<br />
    Else<br />
        Set objService = objLocator.ConnectServer(servername, "root\cimv2", user, pass)<br />
    End If<br />
<br />
    If Err.Number Then<br />
    '<br />
    LaunchRemoteProgram = Err.Number<br />
    Else<br />
        Set objInstance = objService.Get("Win32_Process")<br />
        objInstance.Security_.AuthenticationLevel = wbemAuthenticationLevelConnect<br />
        objInstance.Security_.ImpersonationLevel = wbemImpersonationLevelImpersonate<br />
        objInstance.Create program, Null, Null, LaunchRemoteProgram<br />
    End If<br />
End Function<br />

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