...
dim pfdAction As PreferencesDialog
pfdDialog.Initialize(Activity,"Tittle",90%x, 290dip)
pfdDialog.AddBooleanItem("item0","item 0 ")
pfdDialog.AddSeparator("item1")
pfdDialog.AddShortOptionsItem("item2","item2 : ",listShortOption)
changePosSpinner(pfDialog,2,100dip,212dip)
...
Sub changePosSpinner ( pdia As PreferencesDialog, index As Int , left As Int , width As Int )
Dim p As Panel = pdia.CustomListView1.GetPanel(index)
Dim p2 As Panel
Dim s2 As Spinner
p2 = p.GetView(1)
s2 = p2.GetView(0)
p2.Left = left
p2.Width = width
s2.Width = width
End Sub