mcs/mbas/Test/tests/EventM.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 'To Check if Methods Accebility has anything to do with Events\r
   7 \r
   8 Imports System\r
   9 \r
  10 Class Raiser\r
  11     Public Event Fun(ByVal i as Integer)\r
  12     Public Sub New(i as Integer)\r
  13         RaiseEvent Fun(23)\r
  14     End Sub\r
  15 End Class\r
  16 \r
  17 Module Test\r
  18     Private WithEvents x As Raiser\r
  19 \r
  20     Private Sub Fun(ByVal i as integer) Handles x.Fun\r
  21     End Sub\r
  22 \r
  23     Public Sub Main()\r
  24         x = New Raiser(10)\r
  25     End Sub\r
  26 End Module\r