Будет напечатано B. Чтобы было более понятно, каковы ваши намерения, вы можете указать AddressOf Me.Foo.Кроме того, как и к вашему сведению, если вы установите MyClass.Foo, он напечатает A
Module Module1
Sub Main()
Dim b As B = New B
b.PFoo() ' prints B
Console.ReadLine()
End Sub
End Module
Public Class B
Inherits A
Protected Overrides Sub Foo()
Console.WriteLine("B")
End Sub
End Class
Public Class A
Public Sub PFoo()
Dim f As Action = New Action(AddressOf Me.Foo)
f.Invoke()
End Sub
Protected Overridable Sub Foo()
Console.WriteLine("A")
End Sub
End Class