我不知道你的是怎么回事，这几个答案都通过测试！（xzlxzlxzl改正后可以通过）

谢谢xzlxzlxzl贵宾的程序，通过了！
Private Sub Text1_Click()
  Dim a As Long
  a = Text1.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字，只要在24位色范围内都行，及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text1.BackColor = a
End Sub

请问xzlxzlxzl，该组代码只对一个框起作用，多几个框，对其它框就没有反应了？如：
Private Sub Text1_Click()
   Dim a As Long
  a = Text1.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字，只要在24位色范围内都行，及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text1.BackColor = a
End Sub
Private Sub Text2_Click()
  Dim a As Long
  a = Text2.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字，只要在24位色范围内都行，及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text2.BackColor = a
End Sub

Private Sub Text3_Change()
 Dim a As Long
  a = Text3.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字，只要在24位色范围内都行，及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text3.BackColor = a
End Sub

Private Sub Text4_Change()
 Dim a As Long
  a = Text4.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字，只要在24位色范围内都行，及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text4.BackColor = a
End Sub