Public Class Test
    Private m_Flankeauf as boolean
    Public Property FlankeAuf as Boolean
        Get
            return m_FlankeAuf
        End Get
        Set (Value as Boolean)
            m_FlankeAuf = Value
            CheckValues()
        End Set
    End Property
 
    Private m_AndereVariable as boolean
    Public Property AndereVariable as Boolean
        Get
            return m_AndereVariable 
        End Get
        Set (Value as Boolean)
            m_AndereVariable = Value
            CheckValues()
        End Set
    End Property
 
    Public Event Irgendeines(Irgendetwas as Irgendwas)
 
    Private Sub CheckValues()
        if m_FlankeAuf = True AndAlso _
           m_AndereVariable = False then
            Raiseevent Irgendeines(...)
        End if
    End Sub
End Class