Private Sub user_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) infoForm.Hide() End Sub Private Sub user_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Dim cntrl As UserControl = CType(sender, UserControl) Dim p As Point = cntrl.PointToScreen(New Point(0, 0)) infoForm.Location = p infoForm.Show() End Sub
Public Sub New() Me.DoubleBuffered = True End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)