Private Sub SeminarNameTextBox_Validated(sender As Object, e As EventArgs) _
    Handles SeminarNameTextBox.Validated
        Me.ErrorProvider1.SetError(Me.SeminarNameTextBox, "")
    End Sub
 
    Private Sub SeminarNameTextBox_Validating(sender As Object, e As _
      System.ComponentModel.CancelEventArgs) Handles _
      SeminarNameTextBox.Validating
        If Me.DialogResult = Windows.Forms.DialogResult.Cancel Then _
        Console.WriteLine("Ende")
        If Trim(SeminarNameTextBox.Text) = "" Then
            Me.ErrorProvider1.SetError(SeminarNameTextBox, "Bitte Seminarname" & _
              "eingeben...")
            e.Cancel = True
        End If
    End Sub