[VB.NET] مشكلة اثناء فتح البرنامج والوقت قد تم الانتهاء لايتضلل بالاحمر

كود :

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("h:mm:ss tt")) 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