Sub Activity_Create(FirstTime As Boolean)
Dim bmp As Bitmap
bmp = LoadBitmap(File.DirAssets,"user.jpg")
Dim Out As OutputStream
Out = File.OpenOutput(File.DirRootExternal, "user.jpg", False)
bmp.WriteToStream(Out, 100, "JPEG")
Out.Close
If File.Exists(File.DirRootExternal,"user.jpg") Then
Dim i As Intent
i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
"file://" & File.Combine(File.DirRootExternal, "user.jpg"))
Dim p As Phone
p.SendBroadcastIntent(i)
End If
End Sub