Sub AddSpinnerLists
Spinner1.Add("Midlands Area")
Spinner1.Add("Butlins Area")
Spinner2.Add("2013")
Spinner3.Add("First")
Spinner3.Add("Third")
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
competitionString = Spinner1.GetItem(Value)
End Sub