Dim Chart As WinForm.Chart = e.Form.Controls("Chart1") Dim dlg As New SaveFileDialog dlg.Filter= "JPEG|*.jpg|WMF|*.wmf|BMP|*.bmp|GIF|*.gif|PNG|*.png|TIFF|*.tif|EMF|*.emf"
Do While True If dlg.ShowDialog = DialogResult.Ok Then If FileSys.GetParentPath(dlg.FileName) = ProjectPath.trim("\") Then Exit Do End If End If Loop