Sub Main()
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Read the command line parameters
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim CommandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Application.CommandLineArgs


        Dim strQesPath As String
        Dim lSurveyID As Long = 0
        Dim strSurveyConnection As String
        Dim nFileType As Short
        Dim strScript As String
        Dim strQuotaQuestion As String
        Dim strQuotaDistribution As String
        Dim lTolerance As Long
        Dim strOutputPath As String

        Dim nArg As Integer
        For nArg = 0 To CommandLineArgs.Count - 1
            Dim strVerb As String, strComplement As String
            FindVerb(CommandLineArgs(nArg), strVerb, strComplement)

            If String.Compare(strVerb, "qesPath", True) = 0 Then
                strQesPath = strComplement
            ElseIf String.Compare(strVerb, "surveyID", True) = 0 Then
                lSurveyID = CLng(strComplement)
            ElseIf String.Compare(strVerb, "surveyConnection", True) = 0 Then
                strSurveyConnection = strComplement
            ElseIf String.Compare(strVerb, "fileType", True) = 0 Then
                nFileType = CShort(strComplement)
            ElseIf String.Compare(strVerb, "script", True) = 0 Then
                strScript = strComplement
            ElseIf String.Compare(strVerb, "quotaQuestion", True) = 0 Then
                strQuotaQuestion = strComplement
            ElseIf String.Compare(strVerb, "quotaDistribution", True) = 0 Then
                strQuotaDistribution = strComplement
            ElseIf String.Compare(strVerb, "tolerance", True) = 0 Then
                lTolerance = CLng(strComplement)
            ElseIf String.Compare(strVerb, "outputPath", True) = 0 Then
                strOutputPath = strComplement
            End If

        Next nArg

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Check the parameters
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If strQesPath = "" Then
            MsgBox("No survey - use /qesPath")
            Exit Sub
        End If

        If strQuotaQuestion = "" Then
            MsgBox("No question - use /quotaQuestion")
            Exit Sub
        End If

        If strQuotaDistribution = "" Then
            MsgBox("No quota distribution - use /quotaDistribution")
            Exit Sub
        End If

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Initialise the askiaAPI COM control
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim askiaAPi As New ASKIAAPILib.Analyse
        askiaAPi.FilePath = strQesPath
        askiaAPi.nSurveyType = nFileType
        Select Case nFileType
            Case 0 ' aftQes
            Case 1 ' aftDimensions
            Case 2 ' aftQem
            Case 3 ' aftSurf
            Case 4 ' aftQesSQL
                askiaAPi.CcaSurveyID = lSurveyID
                askiaAPi.CcaSurveyConnection = strSurveyConnection
            Case 5 ' aftQesSQLSingle,
                askiaAPi.CcaSurveyID = lSurveyID
                askiaAPi.CcaSurveyConnection = strSurveyConnection
        End Select

        ' Cannot open the QES file?
        If askiaAPi.Init() <> 0 Then
            MsgBox("Cannot open survey")
            Exit Sub
        End If

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Find the question
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim arrMatches
        Dim nWhere As Integer = 1 + 16 ' shortcut + Closed question
        askiaAPi.FindString(strQuotaQuestion, nWhere, True, True, -1, -1, -1, arrMatches)
        If UBound(arrMatches) < 0 Then
            MsgBox("Cannot find question " & strQuotaQuestion)
            Exit Sub
        End If
        Dim nQuotaQuestion As Integer = arrMatches(0)


        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Create (if needed) a temporary sub-population
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim lSubPopulationID = -1 ' all interviews
        If strScript <> "" Then
            askiaAPi.CreateTemporarySubPopulation("tempSP", "", strScript, lSubPopulationID)
        End If

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Get the counts
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Get the response list
        Dim arrNames, nResponseCount, arrCodes As Object
        askiaAPi.GetResponseListWithoutCount(nQuotaQuestion, nResponseCount, arrNames, arrCodes)

        ' Prepare the array for selecting the responses
        Dim arrResponses As Object
        ReDim arrResponses(nResponseCount - 1)
        Dim nResponse As Integer
        For nResponse = 0 To nResponseCount - 1
            arrResponses(nResponse) = nResponse
        Next

        ' Get the flat counts
        Dim arrResults, arrBase
        askiaAPi.DoFlatCounts(nQuotaQuestion, nResponseCount, arrResponses, 0, lSubPopulationID, -1, arrResults, arrBase)

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Compare the observed and expected counts
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim arrData() As String = Split(strQuotaDistribution, ",")

        Dim lTheoric As Long = 0
        Dim lObserved As Long = 0
        For nResponse = 0 To UBound(arrData)
            lTheoric += CLng(arrData(nResponse))
            lObserved += CLng(arrResults(nResponse, 0))
        Next

        For nResponse = 0 To UBound(arrData)
            Dim nTheoric As Long
            nTheoric = CInt(lObserved / lTheoric * CLng(arrData(nResponse)))
            If Math.Abs(arrResults(nResponse, 0) - nTheoric) > lTolerance Then
                ' Log the error
                Dim fileExists As Boolean = File.Exists(strOutputPath)
                Using sw As New StreamWriter(File.Open(strOutputPath, FileMode.OpenOrCreate))
                    sw.WriteLine("Live quota problem Response '" & arrNames(nResponse) & "' Expected: " & nTheoric & ", found " & arrResults(nResponse, 0))
                End Using
            End If
        Next
    End Sub


    Sub FindVerb(ByVal strArg As String, ByRef strVerb As String, ByRef strComplement As String)
        Select Case Left(strArg, 1)
            Case "-"
                strArg = Mid(strArg, 2)
            Case "/"
                strArg = Mid(strArg, 2)
        End Select
        Dim nPos As Integer
        nPos = InStr(strArg, ":")
        If nPos = 0 Then
            strVerb = strArg
            strComplement = ""
        Else
            strVerb = Left(strArg, nPos - 1)
            strComplement = Mid(strArg, nPos + 1)
        End If

    End Sub