Usando y probando argumentos en Gambas

Captura Hecha con PintaScreen

Bueno aquí les dejo un vídeo de como crear argumentos y probarlos.
Para ver el código en la clase de inicio descarga de la Granja de Gambas el proyecto VisorRV1960.

Args

http://gambaswiki.org/wiki/comp/gb/args?l=es&nl

Public Sub Main()

Dim a As Integer
Dim Argumento As String

For a = 1 To Args.Max
Argumento = Args[a]
If Argumento = "--version" Or If Argumento = "-v" Then
Print "VisorRV1960 versión " & Application.Version
Quit
Else If Argumento = "--help" Or If Argumento = "-h" Then
Print File.Load("textos/comando")
Quit
Else If Argumento = "--azar" Or If Argumento = "-a" Then
Print cmdAzar.VersiculoAzar()
Quit
Else
Print "Comando desconocido: " & Argumento
Print "Prueba--> VisorRV1960 --help"
Quit
Endif
Next

FMain.Show()

If Settings["Opciones/Azar", False] = True Then azar.ShowModal

End