郁闷 了好几天了，大家再指点下吧！

Question

有如下程序
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Command1_Click()
Dim DllHand As Long
Dim DllProc As Long
DllHand = LoadLibrary("USB.dll")
If DllHand = 0 Then MsgBox "没法加载DLL,请先将该工程保存重新启动程序！": Exit Sub
DllProc = GetProcAddress(DllHand, "USB_READ")
If DllProc = 0 Then MsgBox "没找到此函数,请先将该工程保存重新启动程序！": Exit Sub
(...待写....)
end sub---------------------------------------------------------------------------------
USB_READ函数在USB.dll库中，执行到“If DllProc = 0 Then MsgBox "没找到此函数,请先将该工程保存重新启动程序！": Exit Sub”一切顺利，下面该怎么调用USB_READ这个函数？，也就是我想写到“（...待写...)"部分的，函数原型为：USB_READ(double *data, double *dark) 为stdcall，我想通过执行USB_READ函数得到 data 和dark 的数据。请问该怎么办？