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
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.