Public Class Form1
Dim f As Form
Private Sub Button1_MouseHover(ByVal sender As Object, _
ByVal e As EventArgs) Handles Button1.MouseHover
If Me.f Is Nothing Then
Me.f = New Form
Me.f.StartPosition = FormStartPosition.Manual
Me.f.Location = Control.MousePosition
Me.f.Show()
End If
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, _
ByVal e As EventArgs) Handles Button1.MouseLeave
If Me.f IsNot Nothing Then
Me.f.Close()
Me.f = Nothing
End If
End Sub
End Class