Public Class frmAbfertigungTR_ExportAnz


    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load

        txtAnz.Focus()


    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        If txtAnz._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub
        If txtAnzPos._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub

        Me.DialogResult = DialogResult.OK

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub

    Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
        If e.KeyCode = Keys.Return Then
            btn.PerformClick()
        End If
    End Sub

End Class