[vB.NET]为控件添加鼠标悬浮时的提示气泡

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键删除选定项") '提示信息内容