Public Function Partner_vorhanden(ByVal GPartner As String) As Boolean
        For i As Integer = 0 To MAIN.PartnerListe.Items.Count - 1
            If MAIN.PartnerListe.Items.Item(i).SubItems(0).Text = GPartner Then
                Partner_vorhanden = True
                'MAIN.ListView1.Items.Add("Gefunden")
            Else
                Partner_vorhanden = False
                'MAIN.ListView1.Items.Add("Nicht Gefunden")
            End If
        Next
 
        Return Partner_vorhanden
    End Function

    Public Function Partner_gewählt(ByVal GPartner1 As String) As Boolean
        For i As Integer = 0 To MAIN.PartnerListe.CheckedItems.Count - 1
            If MAIN.PartnerListe.CheckedItems.Item(i).SubItems(0).Text = _
              GPartner1 Then
                Partner_gewählt = True
                MAIN.ListView1.Items.Add("gewählt")
            End If
        Next
        Return Partner_gewählt