mcs/mbas/Test/tests/InterfaceA.vb

   1 Interface I
   2     Function F()
   3     Sub S (i as integer)
   4     Property P
   5     Event e (i as integer)
   6 End Interface
   7
   8 Class C
   9     Implements I
  10
  11     Function F() Implements I.F
  12     End Function
  13
  14     Sub S(i as integer) Implements I.S
  15     End Sub
  16
  17    Property P Implements I.P
  18         Get
  19         End Get
  20         Set
  21         End Set
  22    End Property
  23
  24    Event e(i as integer) Implements I.e
  25 End Class
  26
  27 Module InterfaceA
  28     Sub Main()
  29         Dim x As C = New C()
  30         x.F()
  31
  32         Dim y As I = New C()
  33         y.F()
  34     End Sub
  35 End Module