mcs/btests/Override_exe.vb

   1 Imports System
   2 Imports NSOverride
   3
   4
   5 Class D
   6         Inherits B2
   7
   8         Public Overrides Sub S1(i as integer)
   9         End Sub
  10
  11         Public Overrides Sub S2(i as integer, j as string)
  12         End Sub
  13
  14         Public Overrides readonly Property SS(i as integer, y as string) As Integer
  15                 get
  16                 End Get
  17         End Property
  18
  19         Public Overrides writeonly Property SS1(i as integer, y as string) as Integer
  20                 set (Value As Integer)
  21                 End Set
  22         End Property
  23
  24         Public Overrides Property SS2(i as integer, y as string) as Integer
  25                 get
  26                 End Get
  27                 set (Value As Integer)
  28                 End Set
  29         End Property
  30 End Class
  31
  32 Module M
  33         Sub main
  34         End Sub
  35 End Module