'Aktuellen Kunden löschen
    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem10.Click
        Me.BindingContext(Me.DsKunden1).EndCurrentEdit()
        If MsgBox("Aktuellen Kunden und zugehörige Ansprechpartner/Kontakte" & _
          "wirklich löschen?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Dim dr As System.Data.DataRow
            Dim row As System.Data.DataRow
            Dim row2 As System.Data.DataRow
 
            'zugehörige Ansprechpartner werden gelöscht
            For Each row In DsKunden1.Ansprechpartner.Select("IDKunde=" & _
              txtIDKunde.Text)
                row.Delete()
            Next
 
            'zugehörige Kontakte werden gelöscht
            For Each row2 In DsKunden1.Kontakt.Select("IDKunde=" & _
              txtIDKunde.Text)
                row2.Delete()
            Next
 
            'Kunde wird gelöscht
            dr = dvKunden.Table.Rows(mobjCurrencyManager.Position)
            dr.Delete()
            MsgBox("Aktueller Kunde wurde gelöscht")
        End If
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem7.Click
        dvKunden.AddNew()
        mobjCurrencyManager.Position = mobjCurrencyManager.Count - 1
    End Sub

If it was hard to code, it should be hard to read too.