Dim oKeyValue As AttributedString
Dim oFont As Font
oFont=Font.CreateNew(30)
oKeyValue.Initialize(sListText,oFont, Colors.Black)
oKeyValue.Tag=sListValue
myList.Add(oKeyValue)