Public Class frmvertragsuebersicht_Suche

    Private Sub btnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuche.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub txtVertragspartner_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtVertragspartner.KeyDown
        If e.KeyCode = Keys.Enter Then
            btnSuche_Click(sender, e)
        End If
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub txtVertragselement_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtVertragselement.KeyDown
        If e.KeyCode = Keys.Enter Then
            btnSuche_Click(sender, e)
        End If
    End Sub
End Class