Sub Test()
Dim ex As ExportFilter
Dim d As Document
Set d = CreateDocument
d.ActiveLayer.CreateEllipse2 4, 4, 1
Set ex = d.ExportEx("c:\test.jpg", cdrJPEG)
With ex
If .HasDialog Then
If Not .ShowDialog Then .Reset
.Finish
End If
End With
End Sub