Wie zwei Klassen über ein Interface koppeln?

Question

Hallo,
ich will zwei Klassen (Form1 und Auswertung) über ein Interface (IAuswertung) miteinander verbinden (Dependency Injection).
Folgendes Beispiel soll das zeigen:
Beide Klassen haben das Interface implementiert.
Die Form1 hat eine CheckBox, welche ich in der Klasse Auswertung auswerten will. Zum Testen rufe ich deshalb in der Form1
über ein Button die Methode Ergebnis() in der Klasse Auswertung auf.
Das Ergebnis ist aber immer das gleiche: false.

Was mache ich falsch?

Alexander



Public Class Form1 : Implements IAuswertung
    Dim TestKlasse As Auswertung = New Auswertung()

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      CheckBox1.Checked = True
    End Sub

    Public Property IsBrief As Boolean Implements IAuswertung.IsBrief
      Get
        Return CheckBox1.Checked
      End Get
      Set(value As Boolean)
        CheckBox1.Checked = value
      End Set
    End Property

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
      TestKlasse.Ergebnis()
    End Sub
End Class



Public Class Auswertung : Implements IAuswertung
    Private isChecked As Boolean

    Public Property IsBrief As Boolean Implements IAuswertung.IsBrief
      Get
        Return isChecked
      End Get
      Set(value As Boolean)
        isChecked = value
      End Set
    End Property

    Public Sub Ergebnis()
      Console.WriteLine("Ergebnis ist: " & isChecked)
    End Sub
End Class



Public Interface IAuswertung

    Property IsBrief() As Boolean

End Interface