Sub FixRegBatchFileList()
        'This function is just to create a list of registers that scripts and bat files can use.
        Dim RegisterList As String = ""
        For xLoopRegisters As Integer = 0 To PosMaint.RegisterInformations.Count - 1
            RegisterList &= PosMaint.RegisterInformations(xLoopRegisters).RegisterNumber.ToString() & NewLine
        Next
        IO.File.WriteAllText("c:\user\braums\bat\RegNumber.List", RegisterList)
    End Sub