set hours to 24 set second off with thisform.myListBox for ix = 7 to 17 .AddItem( ttoc(ctot('0') + m.ix * 3600,2) ) .AddItem( ttoc(ctot('0') + m.ix * 3600 + 15 * 60,2) ) .AddItem( ttoc(ctot('0') + m.ix * 3600 + 45 * 60,2) ) endfor .AddItem( ttoc(ctot('0') + 18 * 3600,2) ) endwithCetin