Private Sub Timerbtn_Click
Dim timeroptions As List
timeroptions.Initialize
timeroptions.AddAll(Array As String("Start 1st Half","End 1st Half","Start 2nd Half","End 2nd Half"))
Dim timerid As id
selectedTimerOption = timerid.InputList1(timeroptions,"Timer Option")
If selectedTimerOption ==1 Then
'add1stHalfTime
End If
End Sub