Dim fc As FileChooser
fc.Initialize
fc.Title="Select the work image"
fc.InitialDirectory = FileSystem.FindUserDocumentsFolder
fc.SetExtensionFilter("Image", Array As String("*.jpg","*.png","*.bmp"))
Dim fileChosen As String = fc.ShowOpen(ParentForm)
If fileChosen.Length = 0 Then
Return
End If
Dim filePath As String = File.GetFileParent(fileChosen)
Dim fileName As String = File.GetName(fileChosen)
Dim newImage As Image
newImage.Initialize(filePath, fileName)
imgWork.SetImage(newImage)