CType(oControl, System.Windows.Forms.Button).Image = Knopf_Image

    Public Sub ApplyImages(ByVal containerToSearch As Control, ByVal _
      buttonNumber As Integer, ByVal buttonImage As Image)
 
        If containerToSearch.Controls.Count = 0 Then
            Exit Sub
        End If
 
        For index As Integer = 0 To containerToSearch.Controls.Count - 1
            If containerToSearch.Controls(index).Controls.Count > 0 Then
                ApplyImages(containerToSearch.Controls(index), buttonNumber, _
                  buttonImage)
            End If
 
            If TypeOf containerToSearch.Controls(index) Is Button Then
                Dim number As Integer = Integer.Parse( _
                  containerToSearch.Controls(index).Tag)
                If number > 0 AndAlso number = buttonNumber Then
                    DirectCast(containerToSearch.Controls(index), Button).Image _
                      = buttonImage
                End If
            End If
        Next
 
    End Sub