Android Question xcustomlistview replace some text with image

Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
   
    Dim p As Panel
    Dim cs As CSBuilder
    p.Initialize("")
    p.SetLayout(0, 0, Width, Height)
    p.LoadLayout("chatlay")
    Labelchat.Text = cs.Initialize.Color(0xFF0B8200).Append(Text).PopAll
    Return p
End Sub

hi :) this is text message with smiley sample ;) on how to use csbuilder to replace smiley chars with images :-) and so on