Язык Описание VBScript, JavaScript SubPaintComplete(aSurface) Visual Basic Sub PaintComplete(ByVal aSurface As IIngeoPaintSurface) Delphi procedure PaintComplete(aSurface: IIngeoPaintSurface); C, C++ HRESULT PaintComplete(IIngeoPaintSurface* aSurface);
sub MapWindow_PaintComplete(aSurface) MsgBox "Поверхность рисования имеет шрифт " & aSurface.Font.Name end sub