mcs/class/Microsoft.VisualBasic/Test/standalone/5023.vb

   1 Imports Microsoft.VisualBasic \r
   2 Imports System\r
   3 Public Class TestClass\r
   4         Private Declare Function SQLCancel Lib "ODBC32.dll" _\r
   5         (ByVal hstmt As Integer) As Long\r
   6         Public Function Test() As String\r
   7                 'Begin Code\r
   8                         On Error Resume Next\r
   9                         Dim myhandle As Integer\r
  10                         ' Call with invalid argument.\r
  11                         Dim d as Integer = SQLCancel(myhandle)\r
  12                         Return Err.LastDllError\r
  13                 'End Code\r
  14         End Function\r
  15 End Class\r