'Global Properties before you add items
Dim ItemTextProperties As ASWheelPicker_ItemTextProperties = ASWheelPicker1.ItemTextProperties
ItemTextProperties.TextColor = xui.Color_Red
ItemTextProperties.TextFont = xui.CreateDefaultBoldFont(25)
ASWheelPicker1.ItemTextProperties = ItemTextProperties
'Add Items
Dim tmp_lst As List : tmp_lst.Initialize
For i = 0 To 50 -1
tmp_lst.Add("Test " & i)
Next
ASWheelPicker1.AddItems(tmp_lst)'Refresh it
ASWheelPicker1.Refresh