Dim SelectImg As FileChooser
SelectImg.Initialize
SelectImg.SetExtensionFilter("Image", "*.jpg")
SelectImg.Title = "Change your photo"
FileImg = SelectImg.ShowOpen(Main.MainForm)
If FileImg <> "" Then
iv.SetImage(fx.LoadImageSample(File.GetFileParent(FileImg), File.GetName(FileImg), iv.Width, iv.Height))
'or
iv.SetImage(fx.LoadImage(File.GetFileParent(FileImg), File.GetName(FileImg))
end if