请问我这段代码哪里错啦。。只能执行最后的时间提示。。不能提示多次。。。

Question

Public a
Public b
Public cPrivate Sub Command1_Click()
a = Hour(Time)
b = Minute(Time) + 1
c = Second(Time)
List1.AddItem Combo1 & " " & Combo2 & " " & "【" & Time & "死亡】" & " " & "【复活时间" & a & ":" & b & ":" & c & "】"
If Combo1 = "" And Combo2 = "" Then
MsgBox "请点“删除”后再选择BOSS城市和BOSS线路~！！！！！！！！", vbOKOnly, "提示"
End If
End SubPrivate Sub Command2_Click()
List1.RemoveItem 0
End SubPrivate Sub Command3_Click()
End
End SubPrivate Sub Form_Load()
Me.Caption = "武林刷BOSS时间计算器"
Combo1.List(0) = "京  城"
Combo1.List(1) = "草  原"
Combo1.List(2) = "南  疆"
Combo1.List(3) = "沙  漠"Combo2.List(0) = "一线"
Combo2.List(1) = "二线"
Combo2.List(2) = "三线"
Combo2.List(3) = "四线"
Combo2.List(4) = "五线"
Combo2.List(5) = "六线"
Combo2.List(6) = "七线"
Combo2.List(7) = "八线"
Combo2.List(8) = "九线"
Combo2.List(9) = "十线"
Combo2.List(10) = "十一线"
Combo2.List(11) = "十二线"
Combo2.List(12) = "十三线"
Combo2.List(13) = "十四线"
Combo2.List(14) = "十五线"End SubPrivate Sub Timer1_Timer()
If Hour(Time) = a And Minute(Time) = b And Second(Time) = c Then
Form2.Show
End If
End Sub
Private Sub Timer2_Timer()
Frame1.Caption = "当前时间" & Time
End Sub

Answer 1

a,b,c只能保留最后一次提交的小时、分钟、秒，当然“只能提示我提交的最后一个”了。
你的算法没有提供多个时间点的提示功能。