Attribute VB_Name = "Module2"
Public Sub Chc(Cont As Control, Color1 As Integer, Color2 As Integer, Color3 As Integer)
  If Val(Cont.Tag) = Color1 Then
      Cont.Tag = Color2
    ElseIf Val(Cont.Tag) = Color2 Then
      Cont.Tag = Color3
     ElseIf Val(Cont.Tag) = Color3 Then
      Cont.Tag = Color1
     Else
      Cont.Tag = Color1
  End If
    Cont.ForeColor = QBColor(Cont.Tag)
End Sub