主题：显示动态提示信息问题

1、在MouseEnterCell事件设置代码：

If e.Col.Name = "备注" AndAlso e.Row.IsNull("备注") = False Then
    e.Table.ShowToolTip(e.Row("备注"),e.Row,e.Col)
End If

2、在MouseLeaveCell事件设置代码：

If e.Col.Name = "备注" Then
    e.Table.HideToolTip()
End If

这个代码实现 鼠标放到单元格上，提示单元格信息。

如何代码实现鼠标放到这个单元格超过2秒后，才显示提示信息，