Private Sub CreateBitmapWithAlpha(myOriginalBitmap As Bitmap, newAlpha As Int) As Bitmap
Dim canvas1 As Canvas
Dim myNewBitmap As Bitmap
myNewBitmap.initializeMutable(myOriginalBitmap.Width,myOriginalBitmap.Height)
canvas1.initialize2(myNewBitmap)
Dim CanvJO As JavaObject = canvas1
CanvJO = CanvJO.GetField("canvas")
Dim J As JavaObject
J.initializeContext()
J.Runmethod("alphatize",Array(CanvJO, myOriginalBitmap, newAlpha))
Return(myNewBitmap)
End Sub