Is there a trick or workaround to assigning a function pointer to a
long ?  

void f(void)
{

long lpF = (long) f ;

Thanks for the reply..
I tried, but it keeps saying Syntax Error. So i've followed on with
your advice and poured plaster in the keyboard, the box and now on the
screen,  i'm typing blind actually as we speak..
But i can still hear the messagebox sounding as it says Syntax
Error... please tell me what am i doing wrong ?
Do i have to wait for the plaster to set properly ?
Is there an OCX or API call that can dry it more efficiently  ?  
Actually i'm not sure if it is properly registered yet, i'll dab on it
a bit more..where do i find plstsrv32.exe ?  

I need a drink.. :)

Dag.

to pass the pointer of a function to, for example, a Win32 API function, you do:
    Call SomeWin32APIFunc (param1, param2, AddressOf Func, param4, param5)

unfortunately, there is no way in VB to store a function pointer, since you cannot assign
"AddressOf Func" to a variable. but in VB, it is of no use anyway, because you can not
call a VB function by its pointer.

write a dll in C or C++ that contains one function. this function will accept a pointer to
a function and return a long. all it does it return the function pointer converted to a
long. so you call the func with the function as argument you want to pointer to and it
will return the long value of that pointer. not sure if you want to do this, tho  :)

Having got my drink and dinner served, i'm feeling much better now.
:-)

Thanks again. :)

oh, and btw, crashing things is not that hard..  just get the API declaration of
CopyMemory and play with that. you'll be amazed at how easy crashing things is  :))))

And then there is Larry, but shoving coal into a PC instead of
plugging it in is a bit too much work, even for me. ;-)

Hi Frank,

? The problem is that the function
? name is passed in via one of the OPENFILENAME structure's member.
? Then the whole struct is passed in the call. VB simply won't let me
? set that member though. And i've tried some {*filter*} ways :)

Here's an easy way to do it.  This function will accept the address of a
procedure in a .bas module and return it:

Public Function FuncPtr(ptr As Long) As Long
   FuncPtr = ptr
End Function

When setting up your structure do this:

  YourUDT.lpFunc = FuncPtr(AddressOf YourCallbackProc)

Doooh !  Thanks Paul. :-)

Ps: You could have made it look a bit more complicated, so i wouldn't
look so stupid. :-)

Public Sub TargetFuncInBas()
   '...
End Sub

Public Function PtrToFunc(ByVal pFunc As Long) As Long
   PtrToFunc = pFunc
End Function

Public Sub Main()

   Dim pFunc As Long

   pFunc = PtrToFunc(AddressOf TargetFuncInBas)

   MsgBox "Address Is " & CStr(pFunc)

End Sub

HTH,
Tom