有兄弟在吗?安装了VB的过来帮我一个忙，急用。谢谢

[coo_key]

帮忙把下面这个函数编译成MengXHFileDownLoad.DLL
谢谢。。。。

Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String

On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum
fl = FileLen(bfilename)
ReDim binbyte(fl)
Get #FileNum, , binbyte
Close #FileNum
readBinFromFile = binbyte
Exit Function

errHandler:
Exit Function
End Function

[coo_key]

忘记了，发送到[e-mail]
我马上就要走了，帮忙。。。