Sub Globals
Dim Spinner1 As Spinner
Dim List1 As List
Dim Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Label1.Initialize("Label1")
Spinner1.Initialize("Spinner1")
Activity.AddView(Spinner1,0,0,100%x,60dip)
Activity.AddView(Label1,10dip,70dip,100%x,60dip)
Spinner1.AddAll(Array As String("Australia","Canada","New Zealand","United Kingdom","United States"))
List1.Initialize
List1.AddAll(Array As String("AUS","CDN","NZ","UK","USA"))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
Label1.Text = List1.Get(Position)
End Sub