Procedures with out parameters - PicInfo sample application

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)

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 Long
Declare Function GetSaveFileNameA(in/out?:PicMain.OpenFilename) As Long
Public
Function ShowFileOpenDialog(in:Long, in:String, in:String, [in/out:Long], [in:String], [in:String], [in/out:PicMain.EFileDlgFlags]) As String

Class IPicInfo

Class PicBMP

Implements IPicInfo

Class PicGIF

Implements IPicInfo

Color legend

Green Implements