mcs/mbas/Test/tests/typemembers/EventO.vb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

'To Check if WithEvents members can appear after they are used by 
'Handles clauses

Imports System

Class Raiser
    Public Event Fun(ByVal i as Integer)
    Public Sub New(i as Integer)
        RaiseEvent Fun(23)
    End Sub
End Class

Module Test
    Private Sub Fun(ByVal i as integer) Handles x.Fun
    End Sub

    Private WithEvents x As Raiser
    
    Public Sub Main()
        x = New Raiser(10)
    End Sub
End Module