mcs/mbas/Test/tests/latebinding/ExpressionOverLoadMethodB.vb

   1 'Author:
   2 '   Satya Sudha K (ksathyasudha@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Imports System
   7
   8 Module M
   9         Function F (a As Long) As Integer
  10                 return 1
  11         End Function
  12         Function F (a As String) As Integer
  13                 return 2
  14         End Function
  15         Sub Main ()
  16                 Dim obj As Object = "ABC"
  17                 if F (obj) <> 2 Then
  18                         throw new Exception ("Overload Resolution failed in latebinding")
  19                 End If
  20         End Sub
  21 End Module