mcs/mbas/Test/errors/EventH.vb

   1 REM LineNo: 29
   2 REM ExpectedError: BC30183
   3 REM ErrorMessage: Keyword is not valid as an identifier.
   4
   5 Imports System
   6
   7 Class C
   8         Public Event E
   9
  10         Public Sub S()
  11                 RaiseEvent E
  12         End Sub
  13 End Class
  14
  15 Class C1
  16
  17         Inherits C
  18
  19         Public Event E1
  20
  21         Sub call_S()
  22                 S()
  23         End Sub
  24
  25         Sub EH() Handles MyBase.E
  26                 Console.WriteLine("event-H called")
  27         End Sub
  28
  29         Sub EH1() Handles Me.E1
  30         End Sub
  31 End Class
  32
  33 Module M
  34         Sub Main()
  35                 dim y as new C1 ()
  36                 y.call_S()
  37         End Sub
  38 End Module