Private Sub AddOnTimes()
        Dim selectedCellCount As Integer =
            dgvMotionPeriode.GetCellCount(DataGridViewElementStates.Selected)
 
        If selectedCellCount > 0 Then
            lstOnTimesInt.Clear()
 
            For i = 0 To selectedCellCount - 1
                Dim col As Integer = dgvMotionPeriode.SelectedCells( _
                  i).ColumnIndex
                Dim row As Integer = dgvMotionPeriode.SelectedCells(i).RowIndex
                Dim cTemp As Integer = col * 10
                Dim id As Integer
                If row < 10 Then id = cTemp & row
                If row > 9 Then id = cTemp / 10 & row
                lstOnTimesInt.Add(id)
            Next i
            CalcOnTimes()
        End If
    End Sub
 
    Public Sub CalcOnTimes()
        lstOnTimes.Clear()
 
        For Each itm In lstOnTimesInt
            Dim row As String = itm.ToString.Substring(1, 2)
 
            Select Case itm.ToString.Substring(0, 1)
                Case 1
                    lstOnTimes.Add("Monday" & "-" & lstTimes(row))
 
                Case 2
                    lstOnTimes.Add("Tuesday" & "-" & lstTimes(row))
 
                Case 3
                    lstOnTimes.Add("Wednesday" & "-" & lstTimes(row))
 
                Case 4
                    lstOnTimes.Add("Thursday" & "-" & lstTimes(row))
 
                Case 5
                    lstOnTimes.Add("Friday" & "-" & lstTimes(row))
 
                Case 6
                    lstOnTimes.Add("Saturday" & "-" & lstTimes(row))
 
                Case 7
                    lstOnTimes.Add("Sunday" & "-" & lstTimes(row))
            End Select
        Next
    End Sub