Sub FixSelCheck()
        'As we move more to using the concept ID, this sections will not be needed.


        Dim SelCheckIni As New PrivateIniFile

        For xLoop As Integer = 0 To PosMaint.RegisterInformations.Count - 1
            Dim RegInfo As RegInfo = PosMaint.RegisterInformations(xLoop)
            SelCheckIni.SetFileName("c:\iris\reginfo\Reg" & RegInfo.RegisterNumber & "\ini\selcheck.ini")
            SelCheckIni.DeleteKey("SCR_CASHIER", "Default")
            'PE 5/12/2022
            'Removed new check key for cashier 4.0.10
            'PE 6/6/2022
            'Redid this section to hand the Fast drive style and Dual Lane Difference

            DispThis("   " & RegInfo.RegisterNumber.ToString & " is being updated" & NewLine)
            For xLoop_btn As Integer = 0 To 99
                SelCheckIni.DeleteKey("SCR_CASHIER", "BTN" & xLoop_btn.ToString)
            Next
            'DispThis("Dual lane not adding new_check key" & NewLine)
            If (RegInfo.DefaultConcept = eDefaultConcept.Tender OrElse
                   RegInfo.DefaultConcept = eDefaultConcept.TenderBlockReg OrElse
                   RegInfo.DefaultConcept = eDefaultConcept.RegisterDown OrElse
                   RegInfo.DefaultConcept = eDefaultConcept.DualLane2) Then
                Dim intOnButton As Integer = 1
                SelCheckIni.WriteString("SCR_CASHIER", "BTN" + intOnButton.ToString, "RETURN") : intOnButton += 1
                SelCheckIni.WriteString("SCR_CASHIER", "BTN" + intOnButton.ToString, "PAGE_UP") : intOnButton += 1
                SelCheckIni.WriteString("SCR_CASHIER", "BTN" + intOnButton.ToString, "PAGE_DOWN") : intOnButton += 1
                If PosMaint.DriveStyle.ToUpper = "FAST" Then
                    If RegInfo.DefaultConcept = eDefaultConcept.TenderBlockReg OrElse
                        RegInfo.DefaultConcept = eDefaultConcept.DualLane2 Then
                        SelCheckIni.WriteString("SCR_CASHIER", "BTN" + intOnButton.ToString, "NEW_CHECK") : intOnButton += 1
                    End If
                Else
                    SelCheckIni.WriteString("SCR_CASHIER", "BTN" + intOnButton.ToString, "NEW_CHECK") : intOnButton += 1
                End If
                SelCheckIni.WriteString("SCR_CASHIER", "BTN" + intOnButton.ToString, "POS_FUNCTIONS") : intOnButton += 1
                SelCheckIni.WriteString("SCR_CASHIER", "Default", "Close_check")
                SelCheckIni.WriteInteger("SCR_CASHIER", "Count", (intOnButton - 1).ToString)
            End If

        Next
        SelCheckIni = Nothing
    End Sub