Dim tp As New ToolTip()
Private Sub OvalShape1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles OvalShape1.MouseHover
tp.Show(
"OvalShape tooltip", ShapeContainer1, OvalShape1.Left, OvalShape1.Top, 5000)
End Sub
Private Sub OvalShape1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles OvalShape1.MouseLeave
tp.Hide(ShapeContainer1)
End Sub
JohnHart_MSFT Tuesday, September 25, 2007 8:43 PM
You could do something like the following;
Dim tp As New ToolTip()
Private Sub OvalShape1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles OvalShape1.MouseHover
tp.Show(
"OvalShape tooltip", ShapeContainer1, OvalShape1.Left, OvalShape1.Top, 5000)
End Sub
Private Sub OvalShape1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles OvalShape1.MouseLeave
where: Me.ShapeContainer1 = New Microsoft.VisualBasic.PowerPacks.ShapeContainer Me.OvalShape1 = New Microsoft.VisualBasic.PowerPacks.OvalShape Best regards,
Sergiu