mcs/btests/EventE.vb

   1 Imports System\r
   2
   3 Public Class C
   4    Public Event E()
   5 \r
   6    Sub S()\r
   7       RaiseEvent E() \r
   8    End Sub\r
   9 End Class\r
  10
  11 \r
  12 Module M\r
  13 Sub S1()\r
  14    Dim x As New C()\r
  15    AddHandler x.E, AddressOf EH\r
  16    x.S()   \r
  17 End Sub\r
  18 \r
  19 Sub EH()\r
  20    Console.WriteLine("Event fired")\r
  21 End Sub\r
  22 \r
  23 Sub Main()\r
  24         S1()\r
  25 End Sub\r
  26 \r
  27 End Module\r
  28 \r