Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Delete Then
            Beep()
            Dim Result As DialogResult
            Result = MessageBox.Show("Wollen Sie wirklich löschen?", "MELDUNG", _
                    MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.Yes Then
 
            Else
 
            End If
        End If
    End Sub

Salzburger