Sub spnr_ItemClick (Position As Int, Value As Object)
For Each v As View In Activity.GetAllViewsRecursive ' spnrSecondaryType
If v Is Spinner Then
Dim l As Spinner
l = v
If l.tag = "spnrPoleType" Then
Msgbox(Value,Position)
End If
End If
Next
End Sub