Sub Draw_Image (pos as int, cView as Boolean)
Dim curIm As ImageView
If pos = 1 then curIm = ImageView1
If pos = 2 then curIm = ImageView2
If pos = 3 then curIm = ImageView3
If pos = 4 then curIm = ImageView4
If cView = true Then
curIm.Bitmap = LoadBitmap(File.DirAssets,"picture1.png")
Else
curIm.Bitmap = LoadBitmap(File.DirAssets,"picture2.png")
End If
End Sub