Подставление значений в Combobox в зависимости от времени - VB

Формулировка задачи:

Всем привет!))) задача состоит в следующем: нужно подставить значение 1 строки из списка в сомбо при значении часа >=8 и <20

Private Sub Timer1_Timer()
Dim ch As Integer
 ch = (Hour(Time$))
If ch >= 8 And ch < 20 Then Combo1.ListIndex = 0
If ch >= 20 And ch < 8 Then Combo1.ListIndex = 1
 End Sub

это все до чего я догадался

сорри никак не привыкну к навигации правильно вот так

Private Sub Timer1_Timer()
Dim ch As Integer
 ch = (Hour(Time$))
If ch >= 8 And ch < 20 Then Combo1.ListIndex = 0
If ch >= 20 And ch < 8 Then Combo1.ListIndex = 1
 End Sub

вобщем выкрутился вот так

If Label5.Caption >= 8 Then Combo1.ListIndex = 1
 If Label5.Caption < 19 Then Combo1.ListIndex = 1
 If Label5.Caption >= 20 Then Combo1.ListIndex = 0
 If Label5.Caption < 8 Then Combo1.ListIndex = 0

может сложновато конечно

Решение задачи: «Подставление значений в Combobox в зависимости от времени»

textual
                            Листинг программы 
                        

                            Private Sub Timer1_Timer()
Dim ch As Integer
 ch = Hour(Time)
If ch >= 8 And ch < 20 Then
    Combo1.ListIndex = 0
else Combo1.ListIndex = 1
end if
End Sub
                        