| Name | Type | Description |
|---|---|---|
| hWnd |
Long
|
Sub Test()
Dim d As Document
Dim s As Shape
Dim i As ImportFilter
Set d = CreateDocument
Set i = d.ActiveLayer.ImportEx("C:\Example.jpg", cdrJPEG)
If i.HasDialog Then
i.ShowDialog
i.Finish
Else
i.Reset
i.Finish
End If
End Sub