实例代码：
1 Dim k As ToolTip 2 3 k = New ToolTip() 4 k.AutoPopDelay = 3000 '显示出气泡后的延时时间（毫秒） 5 k.InitialDelay = 50 '出现前的延时（毫秒） 6 k.ToolTipTitle = "提示" '提示信息标题 7 k.SetToolTip([控件名], "按D键删除选定项") '提示信息内容
实例代码：
1 Dim k As ToolTip 2 3 k = New ToolTip() 4 k.AutoPopDelay = 3000 '显示出气泡后的延时时间（毫秒） 5 k.InitialDelay = 50 '出现前的延时（毫秒） 6 k.ToolTipTitle = "提示" '提示信息标题 7 k.SetToolTip([控件名], "按D键删除选定项") '提示信息内容