BName.Text = ZahlDataRead(sBName)' Eine Zahl
BName.Image = Image.FromStream(Me.GetPictureFromRessource("fill.jpg"))'Auf dem 
' garuen Hintergrund
If iCounter = 1 Then
            If sZahl1 = sZahl2 Then
                BName.Visible = False
                For Each oButton As Control In Me.Controls
                    If TypeOf (oButton) Is Button And _
                    oButton.Name.StartsWith(sBName2) Then
                        CType(oButton, Button).Visible = False
                    End If
                Next
            Else
'Wenn obere nicht trifft, dann wird graues Hintergrund auf Bild gewechselt und 
' Zahl wird  ausgeblendet
                BName.Image = Image.FromStream(Me.GetPictureFromRessource( _
                  PicDataRead(sBName)))
                BName.Text = ""
                For Each oButton As Control In Me.Controls
                    If TypeOf (oButton) Is Button And _
                    oButton.Name.StartsWith(sBName2) Then
                        CType(oButton, Button).Image = Image.FromStream( _
                          Me.GetPictureFromRessource(PicDataRead(sBName2)))
                        CType(oButton, Button).Text = ""
                    End If
                Next
            End If