Getting error in AddressOf Operator, Plz help

[ItsMe]

Hi Guyz,

I'm unable to understand this (AddressOf) error???

In VB6 I have two functions:
----------------------------

Public Function ImageFirstImage Callback(ByVal hWnd As Integer, ByVal iMsg As
Integer, ByVal wParam As Integer, ByVal LParam As Integer) As Integer
'Code here
End Function

Public Function ImageFirstSortC allback(ByVal hWnd As Integer, ByVal iMsg As
Integer, ByVal wParam As Integer, ByVal LParam As Integer) As Integer
'Code here
End Function

Declaration for function:
------------------------

Public Declare Function fsmScanImageFir st& Lib "FSMFUJI.dl l" (ByVal
strFileName$, ByVal iNumDocs&, ByVal iOutPocket&, _
ByVal
strEncodeData$, ByVal strPrintData1$, _
ByVal
strPrintData2$, ByVal strPrintData3$, _
ByVal
iStampOn&, ByVal strMICR$, _
ByVal
strOCR$, ByRef piPocket&, _
ByRef
piUnitNumber&, ByRef piMICRStatus&, ByVal iDoubleFeed&, _
ByVal
strDocumentStat us$, _
ByVal
funcSortCallBac k&, ByVal funcImageCallBa ck&)

Implementation:
---------------

g_Error = fsmScanImageFir st(vbNullString , lngBatchSize, 1, vbNullString,
vbNullString, vbNullString, vbNullString, 0, strMICRText, strOCRText,
lngPocketRet, lngUnitNum, lngMICRStatus, 7, strDocStatus.Va lue, AddressOf
ImageFirstImage Callback, AddressOf ImageFirstImage Callback) 'I'm getting
error in this line

Do you think that i'm doing any mistake in sytax.???

Plz help
Error Description is :
---------------------
Overload resolution failed because no accessible 'fsmScanImageFi rst' can be
called with these arguments:
'Declare Ansi Function fsmScanImageFir st Lib "FSMFUJI.dll"(s trFileName
As String, iNumDocs As Integer, iOutPocket As Integer, strEncodeData As
String, strPrintData1 As String, strPrintData2 As String, strPrintData3 As
String, iStampOn As Integer, strMICR As String, strOCR As String, ByRef
piPocket As Integer, ByRef piUnitNumber As Integer, ByRef piMICRStatus As
Integer, iDoubleFeed As Integer, strDocumentStat us As String,
funcSortCallBac k As Integer, funcImageCallBa ck As Integer) As Integer':
'AddressOf' expression cannot be converted to 'Integer' because 'Integer' is
not a delegate type.
'Declare Ansi Function fsmScanImageFir st Lib "FSMFUJI.dll"(s trFileName
As String, iNumDocs As Integer, iOutPocket As Integer, strEncodeData As
String, strPrintData1 As String, strPrintData2 As String, strPrintData3 As
String, iStampOn As Integer, strMICR As String, strOCR As String, ByRef
piPocket As Integer, ByRef piUnitNumber As Integer, ByRef piMICRStatus As
Integer, iDoubleFeed As Integer, strDocumentStat us As String,
funcSortCallBac k As Integer, funcImageCallBa ck As Integer) As Integer':
'AddressOf' expression cannot be converted to 'Integer' because 'Integer' is
not a delegate type.
'Declare Ansi Function fsmScanImageFir st Lib "FSMFUJI.dll"(s trFileName
As String, iNumDocs As Long, iOutPocket As Long, strEncodeData As String,
strPrintData1 As String, strPrintData2 As String, strPrintData3 As String,
iStampOn As Long, strMICR As String, strOCR As String, ByRef piPocket As
Long, ByRef piUnitNumber As Long, ByRef piMICRStatus As Long, iDoubleFeed As
Long, strDocumentStat us As String, funcSortCallBac k As Long,
funcImageCallBa ck As Long) As Long': 'AddressOf' expression cannot be
converted to 'Long' because 'Long' is not a delegate type.
'Declare Ansi Function fsmScanImageFir st Lib "FSMFUJI.dll"(s trFileName
As String, iNumDocs As Long, iOutPocket As Long, strEncodeData As String,
strPrintData1 As String, strPrintData2 As String, strPrintData3 As String,
iStampOn As Long, strMICR As String, strOCR As String, ByRef piPocket As
Long, ByRef piUnitNumber As Long, ByRef piMICRStatus As Long, iDoubleFeed As
Long, strDocumentStat us As String, funcSortCallBac k As Long,
funcImageCallBa ck As Long) As Long': 'AddressOf' expression cannot be
converted to 'Long' because 'Long' is not a delegate type.

[Armin Zingler]

"ItsMe" <kk*@yahoo.co m> schrieb

Declaration for function:
------------------------

[...]

Errors in the function declaration. It's for the wrong language (VB6).
Convert it to VB.NET. Mind the basic data types. Use Delegates for passing
function pointers. See docs for more.
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Herfried K. Wagner [MVP]]

* "ItsMe" <kk*@yahoo.co m> scripsit:

I'm unable to understand this (AddressOf) error???

'&' stands for 'Long' in VB.NET, you need an 'Int32'. Make sure you
store a reference to the delegate you pass to the API function in a
variable to avoid problems.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[ItsMe]

thanks a lot armin, i got it

Cheerz
"Armin Zingler" <az*******@free net.de> wrote in message
news:40******** *************** @news.freenet.d e...

"ItsMe" <kk*@yahoo.co m> schrieb

Declaration for function:
------------------------

[...]

Errors in the function declaration. It's for the wrong language (VB6).
Convert it to VB.NET. Mind the basic data types. Use Delegates for passing
function pointers. See docs for more.
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[ItsMe]

ok herfried, thanks a lot...

Cheerz
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:c5******** ****@ID-208219.news.uni-berlin.de...

* "ItsMe" <kk*@yahoo.co m> scripsit:

I'm unable to understand this (AddressOf) error???

'&' stands for 'Long' in VB.NET, you need an 'Int32'. Make sure you
store a reference to the delegate you pass to the API function in a
variable to avoid problems.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>