Pin ByRef

Public Function EAFGetPosition(ByVal index As Integer, ByRef [Step] As Integer) As EAF_ERROR_CODE
            Dim RetVal As Integer = EAF_ERROR_CODE.EAF_ERROR_INVALID
            Dim Caller As System.Delegate = CallDLL("EAFGetPosition", GetType(cCallSignature.Integer_IntPtr))
            Dim IDRet() As Integer = {Integer.MinValue}
            Using Pinner As New cPinHandler
                RetVal = CType(Caller.DynamicInvoke(index, Pinner.Pin(IDRet)), Integer)
            End Using
            [Step] = IDRet(0)
            Return CType(RetVal, EAF_ERROR_CODE)
        End Function