Dim msg As Msgbox3
Dim rs As RichString

Sub Activity_Create(FirstTime As Boolean)

rs.Initialize("{R}{T}{Blue}این{Blue}{T}{R} {U}یک{U} متن {Red}{BI}آزمایشی{Red} است :) {BI}")
rs.Color2(Colors.Blue,"{Blue}")
rs.RelativeSize2(1.5, "{R}")
rs.Typeface2("Serif","{T}")
rs.Underscore2("{U}")
rs.Color2(Colors.Red, "{Red}")
rs.Style2(rs.STYLE_BOLD_ITALIC, "{BI}")

msg.Show(rs, "عنوان", "تأیید", "", "",LoadBitmap(File.DirAssets,"syed.png"))

End Sub

LoadBitmap(File.DirAssets,"syed.png")