mcs/btests/OverloadingA.vb

   1 'Testing overloading in different classes
   2 Class B
   3     Function F()
   4     End Function
   5
   6     Function F(ByVal i As Integer)
   7     End Function
   8
   9     Function F1()
  10     End Function
  11
  12     Function F1(ByVal i As Integer)
  13     End Function
  14 End Class
  15
  16 Class D
  17     Inherits B
  18
  19     Overloads Function F()
  20     End Function
  21 End Class
  22
  23 Module OverloadingA
  24     Sub Main()
  25         Dim x As D = New D()
  26
  27         x.F()
  28         x.F(10)
  29         x.F1(20)
  30
  31         Dim x1 As B=New B()
  32         x1.F(20)
  33         x1.F1()
  34     End Sub
  35
  36 End Module