主题：如何设置光标移动到表单元格，表单元格的背景颜色马上改变？

比如：vars("r") = e.row

vars("c") = e.col

drawcell判断如果当前单元格的索引和全局变量一致就设置样式

if e.row.index = vars("r") andalso e.col.index = vars("c") then

e.style = "样式1"

endif