B4X:
Dim mylistHR As List
mylistHR.Initialize
Dim c As String
For i = 0 To 23
c = i
If c.Length=1 Then c="0" & c
mylistHR.Add(c)
Next
Dim mylistMin As List
mylistMin.Initialize
For i = 0 To 59
c = i
If c.Length=1 Then c="0" & c
mylistMin.Add(c)
Next
Picker1.SetItems(0,mylistHR)
Picker1.SetItems(1,mylistMin)
Question, how to set up infinite picker like in the alarm picker ?