MouseEnterCell事件
vars("x") = e.Row.Indexvars("y") = e.Col.Index
DrawCell事件
If e.Row.Index = vars("x") AndAlso e.Col.Index = vars("y") Then e.Style = "样式1"End If