Oh, I know this all.
I said you can't call this function directly as showed at the following code:
to build DLL from VFP and then:
********* at the VFP *************************************
declare dummer in "LibraryName" STRING
or
'********* at the VB (VBA) *************************************
declare sub dummer lib "LibraryName" (msg as String)
and call this function (without getting the error message)
dummer( "Hello from dummer!!!")
**********************************************
Alex.
>>>>???
>
>Alex,
>
>The example follows
>**********dummy1.prg**********
>DEFINE CLASS dummy_class AS custom OLEPUBLIC
>procedure dummer
>PARAMETER myname
> messagebox("Hello . My name is "+myname)
>endproc
>enddefine
>**************
>
>*******from command line ********
>build projecet dummy1 from dummy1.prg
>build dll dummy1 from build1 recompile
>***after successful building ******
>run/n regsvr32 c:\dummy1.dll
>** give exact path name of dll***
>
>****************************
>'Now open VisualBasic and write following code.
>'in the module write
>declare sub dummer lib "c:\dummy1.dll"( kpk as string)
>
>'''now in form command click event write the code
>
>Set ofox = CreateObject("dummy1.dummy_class")
>
>Call ofox.dummer("Dangerous")
>Set ofox = Nothing
>'this will clear the ofox object
>
>''''''''''
Alex