主题：绘制窗口控件问题

 Select Case e.Sender.Name
    Case "Button8"
        e.Sender.Text = "正在查找,请稍候..."
        e.Sender.ForeColor = Color.Red
        Application.DoEvents()
        Tables("综合信息").Filter = ""
        e.Sender.Text = "查找自编码"
        e.Sender.ForeColor = Color.Black
        Application.DoEvents()
End Select

以上代码第一次执行不能绘制标题为红色,第二次以上均能正常绘制!是怎么回事呢?