'Icons
Dim IconImage As Image = xui.LoadBitmapResize(File.DirAssets, baseIcon(i) ,100 * imv_BaseIcon.Width / 100,100 * imv_BaseIcon.Height / 100, True)
' Dim IconImage As B4XBitmap = xui.LoadBitmap(File.DirAssets, baseIcon(i))
imv_BaseIcon.SetImage(IconImage)