Function Main(ByVal CmdArgs() As String) As Integer Dim ArgNum As Integer ' Index of individual command-line argument. If CmdArgs.Length > 0 Then ' See if there are any arguments. For ArgNum = 0 To UBound(CmdArgs) ' Examine CmdArgs(ArgNum) for settings you need to handle. Next ArgNum End If MsgBox("Hello World!") ' Display message on computer screen. Return 0 ' Zero usually means successful completion. End Function
Public myVar as Boolean = True
Enum AppContext .Project1 = 0 .Project2 = 1 .Project3 = 2End Enum
CurrentContext = AppContext.Project1
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)