Vb6 当批次列表或基于当前日期和时间的行显示在屏幕上时，我需要突出显示特定行

我正在编写一个代码，根据当前日期和时间突出显示屏幕中的批次或数据行列表

这段代码是用VisualBasic编写的，在我的屏幕上，我会得到一个批次列表，如

11212\1113 
3232\14313

我需要根据当前日期和时间突出显示批次中的一个

我已经尝试了下面的代码来选择批次，但是当它显示时，每个批次都会高亮显示，一旦下一个批次显示在屏幕上，上面高亮显示的内容就会消失

                 Dim i As Integer
                 For i = 0 To lstBatches.ListCount - 1
                    MsgBox "i : " & i
                    lstBatches.Selected(i) = True
                 Next i  

在上面提到的两个批次中，当第一个批次显示时，它会高亮显示，但当第二个批次将显示第一个批次时，它不会高亮显示，我需要高亮显示两个或一个批次，当另一个批次根据当前日期时间加载时，它不应取消高亮显示

---

提前感谢。

在其属性面板上将listbox（LstBatches）的MultiSelect属性设置为1（简单）。您当前已将其设置为0（无）。

在其“属性”面板上将列表框（LSTBACKS）的MultiSelect属性设置为1（简单）。您当前已将其设置为0（无）