Dim oFont AsFont
Dim oKeyValue AsAttributedString
oFont=Font.CreateNew(30)
oKeyValue.Initialize(sListText,oFont, Colors.Black)
oKeyValue.Tag=sListValue
myList.Add(oKeyValue)
oLBX.SetItems(0,myList)
oLBX.SelectRow(0,FindByValueWithAttributeString(oLBX,0,sSelectedValue),True)
Sub FindByValueWithAttributeString(pick As Picker, column As Int, value As String) As Int
Dim items As List = pick.GetItems(column)
For i = 0 To items.Size - 1
Dim attr As AttributedString = pick.GetItems(column).Get(i)
If value = attr.tag Then Return i
Next
Return -1
End Sub