projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-06-09 Atsushi Enomoto <atsushi@ximian.com>
[mono.git]
/
mcs
/
btests
/
EventB.vb
1
Imports System
2
3
Class C
4
Delegate Sub EH()
5
Public Event E as EH
6
7
Public Sub S()
8
RaiseEvent E
9
End Sub
10
End Class
11
\r
12
Class C1
13
dim WithEvents x as C = new C()
14
Sub call_S()
15
x.S()
16
End Sub
17
18
Sub EH() Handles x.E
19
Console.WriteLine("event called")
20
End Sub
21
End Class
22
23
Module M
24
Sub Main()
25
dim y as new C1
26
y.call_S()
27
End Sub
28
End Module