mcs/btests/OverrideC4.vb

   1 Class C1
   2         Public Overridable Sub S(byVal a As Integer)
   3         End Sub
   4 End Class
   5 Class C2
   6    Inherits C1
   7         Public Overrides Sub S()
   8         End Sub
   9         Private Overrides Sub S(byVal a As Integer)
  10         End Sub
  11         Public Overrides Sub S(byRef a As Integer)
  12         End Sub
  13         Public Overrides Sub S(byVal a As String)
  14         End Sub
  15 End Class
  16 Module OverrideC2
  17         Sub Main()
  18         End Sub
  19 End Module