API en Multitarea

Hola palomilla . una consulta

declare el siguiente api de la siguiente manera...

private declare function myfuncion lib "lib.dll" (byval param1 as string,
byval param2 as integer) as integer

esta funcion la mando llamar en una tarea que genero asi ...

private sub GeneraTarea()
dim tarea as new thread(addressof prueba)
tarea.start()
end sub

private sub prueba()
dim valor as integer

' mando llamar la funcion api
valor = myfuncion("cualquier","cosa")
end sub

el problema es que si mando llamar la funcion GeneraTarea mas de una vez al
mismo tiempo la funcion api myfuncion truena apartir
de la segunda llamada probe con la clase Monitor.Enter y con synclock
para sincronizar las tareas pero aun con esto truena
apartir de la segunda llamada

alguien tiene una idea de que podria estar pasando ????