''' <summary> ''' 設定ToolTip ''' </summary> ''' <param name="Con">按鈕控制元件</param> ''' <param name="strToolTip">提示資訊</param> ''' <remarks></remarks> Public Sub SetToolTip(ByRef Con As Control, ByVal strToolTip As String) Dim Tool As System.Windows.Forms.ToolTip Try '//SetToolTip Tool = New System.Windows.Forms.ToolTip() '//確定使用者必須指向關聯控制元件多長時間後，工具提示字串才顯示。 / Tool.InitialDelay = 500 '//設定滑鼠從與工具提示關聯的一個控制元件移到另一個控制元件上時，後面的控制元件如果也有提示，/ '//則後面的控制元件提示字元在設定的時間後才顯示。 / Tool.ReshowDelay = 100 '//確定控制元件提示字串顯示多長時間。/ Tool.AutoPopDelay = 5000 Tool.SetToolTip(Con, strToolTip) Catch ex As Exception Throw ex End Try End Sub

然後在按鈕的 MouseLeave 事件中呼叫此方法，傳入 要設定提示資訊的控制元件及要提示的資訊 即可。