Private Sub DG_FEHLER_UserDeletingRow(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles _
      DG_FEHLER.UserDeletingRow
        Dim result As MsgBoxResult
        result = MsgBox("Möchten Sie diesen Fehler-Status wirklich löschen?", _
          MsgBoxStyle.YesNo, Application.CompanyName & " - " & _
          Application.ProductName)
        If result = MsgBoxResult.Yes Then
            "Lösche"        
        Else
            e.Cancel = True
        End If
    End Sub