Imports System
 
Public Class TestMethods
    Public Shared Function Foo() As Boolean
        Console.WriteLine("[Calling Foo]")
        Return True
    End Function
 
    Public Shared Function Bar() As Boolean
        Console.WriteLine("[Calling Bar]")
        Return True
    End Function
End Class
 
Public Class Test
	Public Shared Sub Main()
	    Dim tm = new TestMethods
 
		If tm.Foo() OrElse tm.Bar() Then
            Console.WriteLine("Ok")
        Else
            Console.WriteLine("Fail")
        End If
        Console.ReadLine()
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0TWV0aG9kcwogICAgUHVibGljIFNoYXJlZCBGdW5jdGlvbiBGb28oKSBBcyBCb29sZWFuCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoIltDYWxsaW5nIEZvb10iKQogICAgICAgIFJldHVybiBUcnVlCiAgICBFbmQgRnVuY3Rpb24KICAgIAogICAgUHVibGljIFNoYXJlZCBGdW5jdGlvbiBCYXIoKSBBcyBCb29sZWFuCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoIltDYWxsaW5nIEJhcl0iKQogICAgICAgIFJldHVybiBUcnVlCiAgICBFbmQgRnVuY3Rpb24KRW5kIENsYXNzCgpQdWJsaWMgQ2xhc3MgVGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCgkgICAgRGltIHRtID0gbmV3IFRlc3RNZXRob2RzCgoJCUlmIHRtLkZvbygpIE9yRWxzZSB0bS5CYXIoKSBUaGVuCiAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCJPayIpCiAgICAgICAgRWxzZQogICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiRmFpbCIpCiAgICAgICAgRW5kIElmCiAgICAgICAgQ29uc29sZS5SZWFkTGluZSgpCglFbmQgU3ViCkVuZCBDbGFzcw==