For Each c As Control In Me.Controls
            If TypeOf (c) Is PictureBox Then
                Dim pic As PictureBox = CType(c, PictureBox)
 
                If c.Name.StartsWith("pcbnr") Then
                    pic.Image = tierpark.My.Resources.Resources.grafik_wald
                End If
            End If
        Next