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