Well that was easy..
Public Class IP_ServiceDisplay
Property x As New IPLine_Panels.Task_PopupPanel
Private Sub IP_ServiceDisplay_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim screenpos As Drawing.Point = Me.PointToScreen(New Drawing.Point(0, 0))
x.Location = screenpos
x.Show()
End Sub
End Class
And popup box contains Me.Hide in the Lost_Focus event Handler