Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        Dim GP As String
 
        If Me.GP_Bezeichnung.Text <> Nothing And Me.GP_Name.Text <> Nothing Then
            GP = Me.GP_Bezeichnung.Text
        ElseIf Me.GP_Bezeichnung.Text = Nothing And Me.GP_Name.Text <> _
          Nothing Then
            GP = Me.GP_Name.Text
        ElseIf Me.GP_Bezeichnung.Text <> Nothing And Me.GP_Name.Text = _
          Nothing Then
            GP = Me.GP_Bezeichnung.Text
        ElseIf Me.GP_Bezeichnung.Text = Nothing And Me.GP_Name.Text = Nothing _
          Then
            GP = Nothing
        End If
 
        For i As Integer = 0 To Me.PartnerListe.CheckedItems.Count - 1
            If Me.PartnerListe.CheckedItems.Count > 0 Then
                If Me.PartnerListe.CheckedItems(i).SubItems(0).Text = GP Then
                    Me.Label2.Text = "Ja"
                Else
                    Me.Label2.Text = "Nein"
                End If
            Else
                Me.Label2.Text = "Nichts"
            End If
        Next
end sub