Dim cs As CSBuilder
cs.Initialize
cs.Image(LoadBitmap(File.DirAssets, "rx.png"), 40dip, 40dip, False)
Button1.SetColorAndBorder(Colors.green,2dip,Colors.Black, 0)
Button1.Text = cs
cs.Initialize
cs.Image(LoadBitmap(File.DirAssets, "hearbit32.png"), 40dip, 40dip, False)
Button2.SetColorAndBorder(Colors.White,2dip,Colors.Black, 0)
Button2.Text = cs