Saving multiple Graphic File Formats

I want to be able Save multiple graphic file formats in > Save as type(.png , .jpg, ect.), By trial and Error the current code only loads one type at a time in the Save As type PopUp menu in the Save As dialog window. How do I get it to load both file types in the Save As type PopUp menu to have .png and .jpg. ? I suspect it might have to be done with the GetSaveFolderItem Function. Which I don’t have a clue how to rewrite it.

Dim pic as new Picture(cvsCapturPic.Width, cvsCapturPic.Height,32)
  cvsCapturPic.drawinto(, 0, 0)
  Dim dlg as SaveAsDialog
  Dim f as FolderItem
  dlg = new SaveAsDialog
  dlg.Title = "Save PNG Picture File"
  dlg.SuggestedFileName = "SaveAs.png"
  dlg.Filter = FileTypes1.PngType
  dlg.Title = "Save JPG Picture File"
  dlg.SuggestedFileName = "SaveAs.jpg"
  dlg.Filter = FileTypes1.JpgType
  f = dlg.ShowModal
  If f <> Nil Then
    pic.Save(f, pic.SaveAsJPEG)
  End If

[quote=274341:@Jeffrey Cox]


dlg.Filter = FileTypes1.PngType // sets the filter to allow ONLY PNG’s <<<<<<<<<<<<<<<<<

dlg.Title = “Save JPG Picture File”
dlg.SuggestedFileName = “SaveAs.jpg”
dlg.Filter = FileTypes1.JpgType // set the filer to allow ONLY JPEGS <<<<<<<<<<<<<<<<<<<<

dlg.Filter = FileTypes1.PngType + FileTypes1.JpgType

It worked thanks Norman