Private NewPath, NewFile As String
Private fc As FileChooser
fc.Initialize
fc.Title="Browse and select a file"
fc.SetExtensionFilter("Image", Array As String ("*.jpg", "*.png", "*.gif"))
fc.InitialFileName = ""
Private filename As String = fc.ShowOpen(MainForm) 'this is the FileChooser
NewPath = File.GetFileParent(filename)
NewFile = File.GetName(filename)
Private b64 As Base64Image
Private ImgStr As String
' Read image as base64 string
ImgStr = b64.EncodeFromImage(NewPath, NewFile)
' Show it in HTMLeditor view
HTMLEditor1.HtmlText = "<p><img src=""data:image/png;base64," & ImgStr & """/></p>"