Module mainmod
 
	Public varSilent As Boolean = False
 
	Sub Main(ByVal CmdArgs() As String)
 
		Dim i As Integer
		Dim dirtemp As String
		Dim file1temp As String
		Dim file2temp As String
		Dim outtemp As String
		Dim SyntaxErr As Integer
		Dim ThereIsACmdLine As Boolean
 
		For i = CmdArgs.GetLowerBound(0) To CmdArgs.GetUpperBound(0)
			ThereIsACmdLine = True
			Select Case CmdArgs(i).ToLower()
				Case "/silent"
					varSilent = True
				Case "/folder"
					i = i + 1
					If i < CmdArgs.GetUpperBound(0) Then
						dirtemp = CmdArgs(i)
						If Not System.IO.Directory.Exists(dirtemp) Then
							SyntaxErr = 1
						End If
					End If
........
 
				Case Else
					SyntaxErr = 5
			End Select
		Next
 
		If Not ThereIsACmdLine Then
			Dim mainForm As New Form2()
			mainForm.ShowDialog()
		Else
			If SyntaxErr <> 0 Then
				Console.WriteLine("Syntax error no.: " & Convert.ToString(SyntaxErr))
				Console.WriteLine(" ")
			Else
				....
			End If
			If Not varSilent Then
				Console.WriteLine("Syntax: aixocomp.exe [/silent] { [/folder" & _
  "<Foldername>] !| [/file1 <filepath 1> /file2 <filepath 2>]}" & _
  "/fileout <filepath output>")
			End If
                                                                ....
		End If
 
	End Sub
 
End Module

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)