How about this:

Dim i As Integer

Dim hr,hr2, min As Integer

Dim s As String

hr = 0

min = 0

For i = 0 To 96

If (hr > 12) Then

hr2 = hr - 12

Else

hr2 = hr

End

If (min < 10 And hr2 < 10) Then

s = "0" & hr2 & ":0" & min

ElseIf (min < 10) Then

s = hr2 & ":0" & min

ElseIf (hr2 < 10) Then

s = "0" & hr2 & ":" & min

Else

s = hr2 & ":" & min

End If

If (hr > 12) Then

s = s & " pm"

Else

s = s & " am"

End If

DropDownList1.Items.Add(s)

min = min + 15

If (min = 60) Then

min = 0

hr = hr + 1

End If

Next