''callfunc by number

sub procedure1

                ' Do things...

end sub



function procedure2 as long

                procedure2 = 1

end function



dim lres as long

dim fnptr1 as integer

dim fnptr2 as integer



bind fnptr1 to procedure1

bind fnptr2 to procedure2





callfunc fnptr1            'This works

callfunc fnptr2            'This also works

lres=callfunc(fnptr2)      'This doesn't work. Compiler error

lres=callfunc fnptr2       'This doesn't work. Compiler error

lres=(callfunc(fnptr2))    'This WORKS!!!