Problème d'Interface et de class

Bonjour

J'ai l'interface IGedcomView définie comme cela:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Interface IGedcomView
 
Property Database() As GedcomDatabase
Property Record() As GedcomRecord
 
ReadOnly Property Husband() As GedcomIndividualRecord
....
Event DeleteIndividual As EventHandler(Of IndividualArgs)
 
Sub ClearView()
...
Sub SaveView()
...
End Interface

Puis dans un autre fichier une class SummaryView définie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Partial Class SummaryView
	Implements IGedcomView
 
 
	Private _database As GedcomDatabase
	Private _record As GedcomRecord
 
	Public Sub New()
		InitializeComponent()
	End Sub
 
	Public Property Database() As GedcomDatabase Implements IGedcomView.Database
		Get
			Return _database
		End Get
		Set
			_database = value
		End Set
	End Property
 
	Public Property Record() As GedcomRecord Implements IGedcomView.Record
		Get
			Return _record
		End Get
		Set
			If value IsNot Nothing AndAlso _database Is Nothing Then
				Throw New Exception("Database must be set before Record")
			End If
 
			_record = value
		End Set
	End Property
 
	Public ReadOnly Property Husband() As GedcomIndividualRecord Implements IGedcomView.Husband
		Get
			Return Nothing
		End Get
	End Property
 
 
	Public Event DeleteIndividual As EventHandler(Of IndividualArgs)
 
 
	Public Sub ClearView() Implements IGedcomView.ClearView
 
	End Sub
 
	Public Sub SaveView() Implements IGedcomView.SaveView
 
	End Sub
End Class

Sur la ligne de code Implements IGedcomView j'ai une erreur m'indiquant que la classe SumaryView doit implémenter ReadOnly Propert Husband pôur l'interface IGedcomView. La propriété d'implémentation doit avoir des spécificateurs 'ReadOnly' ou 'WriteOnly' correspondants.
Ce qui est le cas.
Donc pourquoi cette alerte?

A la compilation j'ai de plus une erreur m'indiquant que la Class SummaryView doit implémenter Event DeleteIndividual pour l'interface.
Ce qui est également le cas.
Ou est mon erreur?

Merci de votre aide.
Bernard