I have a old code in VB.Now I convert it into vb.net.There is a line in a code
Dim pCParameters As Integer pCParameters = VarPtr(Parameters)
Dim pCParameters As Integer
pCParameters = VarPtr(Parameters)
Yes I found the answer.The new VarPtr function is
Public Function VarPtr(ByVal e As Object) As Integer Dim GC As GCHandle = GCHandle.Alloc(e, GCHandleType.Pinned) Dim GC2 As Integer = GC.AddrOfPinnedObject.ToInt32 GC.Free() Return GC2