[VB.NET] مساعدة في برنامج تتبع الاوقات

كود :
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged

        ListView1.Items.Clear()



        For Each dr As DataRow In dc.ShowData().Rows



            Dim item As New ListViewItem(dr("Code_ID").ToString())

            item.SubItems.Add(dr("Code_num").ToString())

            item.SubItems.Add(dr("Code_Timein").ToString())

            item.SubItems.Add(dr("Code_Timeout").ToString())

            item.SubItems.Add(dr("Code_mount").ToString())

            item.SubItems.Add("")

            ListView1.Items.Add(item)



            For i As Integer = 0 To ListView1.Items.Count - 1 Step 1

                If Val(ListView1.Items(i).SubItems(3).Text < DateTime.Now.ToString("hh:mm:ss t")) Then

                    ListView1.Items(i).BackColor = Color.Red

                    ListView1.Items(i).ForeColor = Color.White

                    ListView1.Items(i).SubItems(5).Text = "إنتهى الوقت المحدد"



                Else

                    ListView1.Items(i).SubItems(5).Text = "لم ينته الوقت المحدد"

                End If

            Next



        Next

    End Sub