For i = 0 To 2
Dim btnSize As Int
Dim bmpTemp As Bitmap
Dim cvs As Canvas
Dim rectDest As Rect
btnSize = 10 * Rnd(4, 12)
imvTop(i).Initialize("imvTop")
pnlTop.AddView(imvTop(i), Rnd(0, pnlTop.Width - btnSize - 20), Rnd(0, pnlTop.Height - btnSize - 20), btnSize, btnSize)
' First resize To temporarily bitmap
bmpTemp = matchcode.CreateScaledBitmap(bmpIcon(i), btnSize, btnSize, True)
bmpTemp.InitializeMutable(btnSize, btnSize)
rectDest.Initialize(0, 0, btnSize, btnSize)
' 'Rotate bmpIcon into bmpTemp
cvs.Initialize2(bmpTemp)
cvs.DrawBitmapRotated(bmpIcon(i), Null, rectDest, Rnd(0, 360)) 'Draw the new image
'matchcode.SetAntiAlias(cvs, 1)
bmpIcon(i).Initialize3(bmpTemp)
imvTop(i).Gravity = Gravity.FILL
imvTop(i).Bitmap = bmpIcon(i)
Next