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