Sub PicChooser_Result(Success As Boolean, Dir As String, FileName As String)
If Success = True Then
Dim inp As InputStream
inp = File.OpenInput(Dir, FileName)
Dim btm As Bitmap
btm.Initialize2(inp)
Log(inp)
ImageView1.SetBackgroundImage(btm)
Else
ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
End If
End Sub