How can i run a DLL?

i spended few days so start DYNAMICALY a user definded DLL

but this don't work each time..

download DLL
http://www.blitzbase.de/codes.zip

source:

Local dll :Int =LoadLibraryA("dummy.dll")
Local addr:Int =Int(GetProcAddress(dll,"test@8"))
Local func:Int (v1:Int, v2:Int)

(Int Ptr(Varptr(func)))[0]=addr

Print dll +" <dummy.dll"
Print addr+" <test@8"
Print func(3,4)
Print func(3,4)
Print func(3,4)
Print func(3,4)
Print func(3,4)
Print func(3,4)
Print func(3,4)
Print func(3,4)
Print func(3,4)
Print func(3,4)

on my machine - this program display a error message in debugmode after starting few times this function...