Dim TheTime As Date, I As Long TheTime = TimeValue("00:00") For I = 1 To 1440 cboTime.AddItem Format(TheTime, "hh:nn") TheTime = DateAdd("n", 1, TheTime) Next cboTime.Text = "00:00"
Comment