Private Function Button_geklickt(ByVal BName As Button)
        Dim BName2 As New Button
        Dim sZahl1 As String
        Dim sZahl2 As String
        Dim sButton As String
        Dim sBName As String
        Dim sBName2 As String
 
        BName.Text = ZahlDataRead(BName)
        BName.Image = Image.FromStream(Me.GetPictureFromRessource("fill.jpg"))
 
        If iCounter = 1 Then
            sZahl2 = BName.Text
            sBName = BName.Name()
            sBName2 = BName2.Name()
            If sBName = sBName2 Then
                Exit Function
            End If
            If sZahl1 = sZahl2 Then
                BName.Visible = False
                BName2.Visible = False
            Else
                BName.Image = Image.FromStream(Me.GetPictureFromRessource( _
                  PicDataRead(BName)))
                BName2.Image = Image.FromStream(Me.GetPictureFromRessource( _
                PicDataRead(BName2)))
            End If
            iCounter = 0
        Else
            iCounter = 1
            sZahl1 = BName.Text
            BName2 = BName
        End If
    End Function