Private Sub radAusgang_CheckedChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles _
        radAusgang.CheckedChanged, _
        radEingang.CheckedChanged
 
        If Me.ParentForm Is Nothing Then Exit Sub
        If Me.bInit Then Exit Sub
 
        MyBase.DisposeFilterDialog()
 
        MyBase.WithFilterDialog = False
        MakeWHEREStrings()
 
    End Sub