请教：备注列的鼠标感知问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一、问题描述：用以下代码可以改变备注列的字符颜色，但如果鼠标移动到列窗口后，字符颜色立马恢复默认颜色（黑色）

Tables("表A").Cols("第十列").OpenWindow

For Each a As Object In Tables("表A").grid.parent.controls

For Each b As Object In a.controls

If b.text = "第十列" Then

Dim d = b.controls(0).controls(0)

d.ForeColor = Color.Red '字体颜色

Exit For

End If

二、目的：保证列窗口字符颜色不变

1、如何调整代码？

2、如何感知鼠标进入列窗口？（如果得到感知信息，也可以用计划管理设置代码达到）

谢谢指教！

主题：请教：备注列的鼠标感知问题