Private Sub ShowMedia (Result As MediaChooserResult)
If Result.Success Then
smm.SetMediaFromFile(design.Picpnl, Result.MediaDir, Result.MediaFile, Result.Mime, Null)
File.Copy(Result.MediaDir, Result.MediaFile, rp.GetSafeDirDefaultExternal(""), "temp.jpg")
B4XPages.ShowPage("design")
Else
design.Picpnl.RemoveAllViews
End If
End Sub