Public Class Form1
   Event KleinerNullEreignis(ByVal x As Double)
   Event zuKleinEreignis(ByVal x As Double)
   Event zuGrossEreignis(ByVal x As Double)
   Event RichtigEreignis()
 
   Sub zuKleinReaktion(ByVal x As Double) Handles Me.KleinerNullEreignis, _
     Me.zuKleinEreignis
      labAnzeige.Text = "Die Zahl " & x & " ist zu klein, sie muss >= 10 sein"
   End Sub
   Sub zuGrossReaktion(ByVal x As Double) Handles Me.zuGrossEreignis
      labAnzeige.Text = "Die Zahl " & x & " ist zu gross, sie muss <= 50 sein"
   End Sub
   Sub RichtigReaktion() Handles Me.RichtigEreignis
      labAnzeige.Text = "Die Zahl liegt im richtigen Bereich"
   End Sub
   Private Sub txtEingabe_TextChanged(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles txtEingabe.TextChanged
      Dim z As Double
 
      z = Val(txtEingabe.Text)
      If z < 0 Then
         RaiseEvent KleinerNullEreignis(z)
      ElseIf z < 10 Then
         RaiseEvent zuKleinEreignis(z)
      ElseIf z > 50 Then
         RaiseEvent zuGrossEreignis(z)
      Else
         RaiseEvent RichtigEreignis()
      End If
   End Sub
End Class

------------------------------------------------------------------------------------

So sechs wie wir f?nf gibt es keine vier, wir drei sind die zwei Einzigen!

------------------------------------------------------------------------------------