はじめまして
VB6 から VB2008 へ移植をしております。
'System.IntPtr' に変換できません　のエラーで
困っております。
申し訳ありませんが教えて下さい

Imports OpenGLLib

Public Class TessCall

    Public Sub glVertex3dvCB(ByRef arg As Double)

        glVertex3dv(arg)

    End Sub

End Class



Module DeclareB

    Public Delegate Sub Call11(ByRef arg As Double)'デリゲート型 

End Module



Public Function TessMake(ByVal ListNo As Integer) As Integer



        Dim tobj As Integer

        Dim MyCall As New TessCall

        Dim Call1 As Call11

        

        Call1 = New Call11(AddressOf MyCall.glVertex3dvCB)

     

        tobj = gluNewTess()

        gluTessCallback(tobj, GLU_TESS_VERTEX, Call1)

                                              '~~~~~ 

'尚、Imports OpenGLLib 内では 

Public Declare Sub gluTessCallback Lib "GLU32.DLL" (ByVal tess As IntPtr, _

                              ByVal which As UInt32, ByVal fn As IntPtr)

'です。 

                                              
        Call1 の値を 'System.IntPtr' に変換できません
        のエラーがでます。
　　　　対処法を教えて頂けないでしょうか