Public Sub SetCustomerRatingImages(ByRef a_form As System.Windows.Forms.Form, _
  ByRef a_rating As Byte)
		On Error Resume Next
        Dim c As System.Windows.Forms.Control
      With a_form
            For Each c In .Controls
                With c
                    If .Name Like "imgRating*" Then .Visible = (.Name = _
                      "imgRating" & a_rating)
                End With
            Next c
            If .Name = "frmCustomers" Then
                c = CType(.Controls("cmbValue"), Object)(14)
            ElseIf .Name = "frmOrders" Then
                c = CType(.Controls("cmbValue"), Object)(214)
            End If
            Select Case a_rating
                Case 1 : c.BackColor = System.Drawing.ColorTranslator.FromOle( _
                  COLORRATING1)
                Case 2 : c.BackColor = System.Drawing.ColorTranslator.FromOle( _
                COLORRATING2)
                Case 3 : c.BackColor = System.Drawing.ColorTranslator.FromOle( _
                COLORRATING3)
                Case 4 : c.BackColor = System.Drawing.ColorTranslator.FromOle( _
                COLORRATING4)
                Case 5 : c.BackColor = System.Drawing.ColorTranslator.FromOle( _
                COLORRATING5)
                Case 6 : c.BackColor = System.Drawing.ColorTranslator.FromOle( _
                COLORRATING6)
            End Select
        End With
		On Error GoTo 0
	End Sub