Public Function Partner_gewählt(ByVal GPartner1 As String) As Boolean
        Dim i2 As Integer = 0
        Do While i2 = MAIN.PartnerListe.CheckedItems.Count - 1
            If MAIN.PartnerListe.CheckedItems.Item(i2).SubItems(0).Text = _
              GPartner1 Then
                Partner_gewählt = True
                Exit Do
            End If
        Loop
        Return Partner_gewählt
    End Function