mcs/btests/ScopeA.vb

   1 Imports System
   2 Module Scope1
   3         Public Function S() As Integer
   4                 Return 1
   5         End Function
   6 End Module
   7 Module Scope
   8         Sub Main()
   9                 Dim a As Integer=S()
  10                 If a<>1 Then
  11                         Throw New Exception("ScopeA:Failed-public method should be visible in other modules too")
  12                 End If
  13         End Sub
  14 End Module