Dim thisImage = Image.FromFile("C:\Windows\隅田川.bmp") Me.Controls.OfType(Of PictureBox).All(Function(pic) pic.Image = thisImage Return True End Function)