Sub Activity_Create(FirstTime As Boolean)
Dim sp As Spinner
sp.Initialize("sp")
sp.DropdownTextColor = Colors.White '<--- Define whichever you want according to app theme
sp.DropdownBackgroundColor = Colors.Blue
sp.TextColor = sp.DropdownBackgroundColor '<--- Assign same color for text and background
sp.Color = sp.DropdownBackgroundColor
sp.AddAll(Array As String("one","two","three"))
sp.Tag =True '<---- will mark it as "empty"
Activity.AddView(sp,20dip,50%Y,120dip,40dip)
End Sub
Sub sp_ItemClick (Position As Int, Value As Object)
Dim sp As Spinner = Sender
Dim empty As Boolean = sp.tag
If empty Then 'Will only need it the first time
sp.TextColor = sp.DropdownTextColor
sp.Clear 'Clear and re-populate the spinner. This is the only way to force redraw everything. Invalidate would also work but needs an additional click
sp.AddAll(Array As String("one","two","three"))
sp.Tag=False
End If
'...process the event normally
End Sub