Dim imv As ImageView
Dim Bitmaps, bmpDot, bmpSymbols As Bitmap
bmpSymbols.Initialize(File.DirAssets,"symbols.png")
bmpDot.Initialize(File.DirAssets,"dot.png")
imv.Initialize("")
If sym_flag = 0 Then
imv.Initialize("")
'imv.SetBackgroundImage(LoadBitmap(File.DirAssets, "symbols.png"))
imv.Bitmap = bmpSymbols
imv.Left = 10
Activity.AddView(imv, 10, 0, 100%x, 100%y)
imv.SetLayout(0, 0, 100%x, 100%y)
imv.Visible = True
sym_flag = 1
Else
imv.Initialize("")
imv.Invalidate
'imv.SetBackgroundImage(LoadBitmap(File.DirAssets, "dot.png"))
imv.Bitmap = bmpDot
imv.Left = 1000
Activity.AddView(imv, 1000, 0, 100%x, 100%y)
imv.SetLayout(1000, 0, 0, 0)
imv.RemoveView
imv.Visible = False
sym_flag = 0
End If