各位老兄:
         小弟实在是没有办法:
         想实现自动提示功能.我用的是控件数组 显示状态.但是只能实现第一个控件自动提示;
         下面是代码:

Private Sub Timer1_Timer()
Dim zd As Integer

Text2.Text = Time$()
Dim ti As String
ti = Time$()
Data2.RecordSource = "select * FROM 实时状态 WHERE 结束时间='" & ti & " ' "
Data2.Refresh
Do While zd < 2 And Not Form7.Data2.Recordset.EOF And Combo1.Text = Form4.A(zd).Caption
  MsgBox "有按摩结束", , "提示"
  Form4.AA(zd).BackColor = &HFF00&
  index = index + 1
Loop
End Sub

请你在问题的时候，将标题写好。

请将下面这行放到循环里面，再注意一下zd的值。
And Combo1.Text = Form4.A(zd).Caption

谢谢提醒!
多谢一直一来关照!