Procedures with out parameters – PicInfo sample application

Class IPicInfo

Class PicBMP

Implements IPicInfo

Form PicForm

Private
Sub	Pict_OLEDragDrop(in:DataObject, out:Long, Integer, Integer, Single, Single)
Sub	Pict_OLEDragOver(in:DataObject, out:Long, Integer, Integer, Single, Single, Integer)

Class PicGIF

Implements IPicInfo

Module PicMain

Private
Function	FileDialog(in:Long, in:String, in:String, in/out:Long, in:String, in:String, in/out:PicMain.EFileDlgFlags) As String
Declare Function	GetOpenFileNameA(in/out?:PicMain.OpenFilename) As Variant
Declare Function	GetSaveFileNameA(in/out?:PicMain.OpenFilename) As Variant
Public
Function	ShowFileOpenDialog(in:Long, in:String, in:String, [in/out:Long], [in:String], [in:String], [in/out:PicMain.EFileDlgFlags]) As String