Public Sub KnopfImage(ByVal oContainer As Object, ByVal KnopfNummer As Long, _
  ByVal Knopf_Image As Image)
        Dim Nummer As Long = 0
        If Not IsNothing(oContainer) Then
            For Each oControl As Control In oContainer.Controls
                If oControl.Controls.Count > 0 Then
                    KnopfImage(oControl, KnopfNummer, Knopf_Image)
                Else
                    If TypeOf oControl Is Button Then
                        Nummer = Mid(oControl.Name, 7, 3)
                        If Nummer > 0 Then
                            If Nummer = KnopfNummer Then
 
                                oControl.Image = Knopf_Image
 
                            End If
                        End If
                    End If
                End If
            Next
        End If
    End Sub