mcs/btests/Import1.vb

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