Dim matn1 As String=List1(2).Get(Position)
  Dim s As String
  s = matn1.Replace("َ","$َ$").Replace("ّ","$ّ$").Replace("ِ","$ِ$").Replace("ٔ","$ٔ$").Replace("ْ","$ْ$") _
  .Replace("ُ","$ُ$").Replace("ً","$ً$").Replace("ٍ","$ٍ$").Replace("ٌ","$ٌ$").Replace("ٰ","$ٰ$")
  Dim r As RichString
  r.Initialize(s)
  r.Color2(Colors.Red,"$")
  Label.Text = r