با تابع زیر هم میتونید View خودتون رو خیلی اسون وسط چین کنید :

 

Sub CenterView(v As View, parent As View)
v.Left = parent.Width / 2 - v.Width / 2
v.Top = parent.Height / 2 - v.Height / 2
End Sub

 

با تابع زیر میتونید خودتون Spinner رو باز کنید.ینی اینکه یه فلش (جهت خودمون) بذارید و وقتی روی اون کلیک شد Spinner باز بشه.

Sub OpenSpinner(s As Spinner)
 Dim r As Reflector
 r.Target = s
 r.RunMethod("performClick")
End Sub