dll/return value(not working) help!

[Cmdr0Sunburn]

ok i made a a dll, works but when i call it it does not return any values.my code is below
btw im calling it from vb

.Code

dllmain Proc xcompielr:DWORD, xdamn:DWORD, xwarning:DWORD
ret
dllmain EndP

Testspeed Proc Ftime1:DWORD, Ftime2:DWORD, FtimeDIFF:DWORD 
   Local Ticks1 :DWORD 
   Local Ticks2 :DWORD 

    Invoke GetTickCount 
    mov Ticks1, eax 
    mov eax, 00h 
    
loop1:
inc eax 
cmp eax, 00FFFFFFh  
jne loop1 

    Invoke GetTickCount 
    mov Ticks2, eax 
    mov eax, Ticks1 
    mov Ftime1, eax 
    mov eax, Ticks2 
    mov Ftime2, eax 
    sub Ticks1, eax 
    mov eax, Ticks1 
    mov FtimeDIFF, eax 
ret 
Testspeed EndP 
End dllmain