For Each RelevantForm As Form In My.Application.OpenForms
 
    ChangeImage(RelevantForm)
 
Next RelevantForm
 
 
 
Public Sub ChangeImage(ByVal MyRelevantForm As Control)
      Dim MyTempControl As MyComponentClass
 
        For Each MyForm as Control In MyControl.Controls
 
            If TypeOf MyForm Is MyComponentClass Then
                MyTempControl = MyForm
                MyTempControl.Image =
                MyTempControl.ForeColor = 
                MyTempControl.Refresh()
            End If
 
 
        Next MyForm
 
 
    End Sub