Sample Code 4

A simple program to test ActiveX object CError and Fortran subroutine DisplayError.

program TestDisplayError

use f90VBDefs

use f90VBautomation

use f90VBGUIUtils

implicit none

integer(HRESULT_KIND)::iRet

!Initialize Ole

iRet = OleInitialize()

call DisplayError('There ain''t no real errors yet...')

!Uninitialize Ole

call OLEUninitialize()

stop

end

Sample Code 5