' mouse üzerindeyken balon açıklama

' mouse üzerindeyken balon açıklama


Dim Hovering As Boolean

Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover

ToolTip1.SetToolTip(Me.Label1, "www.google.com")

ToolTip1.SetToolTip(Me.Label2, "100 Sonuçlu Google Araması")

ToolTip1.SetToolTip(Me.Label3, "mail.live.com")

ToolTip1.SetToolTip(Me.Label4, "mail.yahoo.com")

ToolTip1.SetToolTip(Me.Label5, "www.facebook.com/")

ToolTip1.SetToolTip(Me.Label6, "www.giveawayoftheday.com/")

ToolTip1.SetToolTip(Me.Label7, "kerkur.tr.gg/BanaMailatin.htm")

ToolTip1.SetToolTip(Me.Label8, "www.diyanet.gov.tr/ namazvakti")

Hovering = True

End Sub