mcs/mbas/Test/tests/Import1.vb

   1 REM CompilerOptions: /r:Dll1.dll
   2
   3 Imports System
   4 Imports Dll1
   5
   6 Module Test
   7 Sub Main
   8     Dim i As Integer
   9     Dll1.OutInt(i)
  10     If i <> 123 Then
  11         Throw New Exception("#A1: Wrong value returned: " & i.ToString())
  12     End If
  13 End Sub
  14 End Module