Dim st As String = "وب سایت یاهو ۹۸ مرجعی برای یاد گیری برنامه نویسی به زبان بیسیک فور اندروید. !"

st = st.Replace("بیسیک","{G}بیسیک{G}")
	st = st.Replace("اندروید","{R}اندروید{R}")
	st = st.Replace("یاهو","{R}یاهو{R}")
	st = st.Replace("98","{R1}98{R1}")

Dim r As RichString
	r.Initialize(st)
	r.Color2(Colors.Green,"{G}")
	r.Color2(Colors.Red,"{R}")
	r.Color2(Colors.Blue,"{R1}")