Imports System.Runtime.CompilerServices
Imports [Default].Tru.P

Namespace Tru.P 
  Public Module Ext1    
    <Extension()> _
    Public Function Foo(ByVal x As P.Bar, ByVal y As Integer) As Integer
      System.Console.WriteLine ("Ext1.Foo")
    End Function
  End Module
End Namespace 

Namespace Tru.P.P
  Public Module Ext     
    <Extension()> _
    Public Function Foo(ByVal x As Bar, ByVal y As Integer) As Integer
      System.Console.WriteLine ("Ext.Foo")
    End Function
  End Module

  Public Class Bar
    Public Sub F
      Foo(2)  'Should resolve to Ext1.Foo
    End Sub

    Public Shared Sub Main
      Dim x As New Bar
      x.F
    End Sub
  End Class
End NameSpace