Public Sub LoadBitmapSampleFromJar(FileName As String, Width As Int, Height As Int) As Bitmap
If File.Exists(File.DirInternalCache, FileName) = False Then
Dim out As OutputStream = File.OpenOutput(File.DirInternalCache, FileName, False)
File.Copy2(LoadFileFileFromJar(FileName), out)
out.Close
End If
Return LoadBitmapSample(File.DirInternalCache, FileName, Width, Height)
End Sub