' 文字列の配列
Dim argv As String()

argv = System.Environment.GetCommandLineArgs()
' 引数1つ( 自分自身を入れて2 )
if argv.Length = 2 then

	Console.WriteLine(argv(1))

end if

Module MyModule

' ********************************************************
' * 列挙体の定数名と値を全て取得
' ********************************************************
Sub Main()

	' Enum 構造体の GetNames メソッドで文字列名称を配列にセット
	Dim colorNames As String() = ConsoleColor.GetNames(GetType(ConsoleColor))
	Dim x As Integer

	For x = 0 To colorNames.Length - 1

		' 列挙体に定義されている文字列名称を実際の列挙定数に変換して、
		' さらに、本来の整数にキャストして名前と値を並べて表示する
		Console.WriteLine("{0} : {1}", _
			colorNames(x), _
			CType(System.Enum.Parse(GetType(ConsoleColor),colorNames(x)), Integer) _
		)

	Next

End Sub

End Module