Sorry, I am sick at home today and my brain is not firing on all two cylinders.

Here is the code. It is not even close to perfect. It is just some proof of concept.

code:
Break On

$Form = CreateObject("Kixtart.Form")
$Form.Size = 400, 400
$Form.Center
$Form.ForeColor = Blue
$Form.OnMouseDown = "OnFormMouseDown"
FUNCTION OnFormMouseDown
	If $Form.MouseButton = 2
		; Right-click
		fnPopup($Form.Left + $Form.MouseX, $Form.Top + $Form.MouseY)
	ENDIF
EndFunction

$Form.Show
While $Form.Visible
	$=Execute($Form.DoEvents())
Loop

Exit 1

FUNCTION fnPopup($FormSLeft, $FormSTop)
	$FormS = CreateObject("Kixtart.Form")
	$FormS.BorderStyle = 0
	$FormS.ClientWidth = 100
	$FormS.ClientHeight = 35
	$FormS.Top = $FormSTop
	$FormS.Left = $FormSLeft
	$FormS.ForeColor = Red
	$FormS.Show
	$FormS.Rectangle(0, 0, $FormS.ClientWidth, $FormS.ClientHeight)
	$btnClose = $FormS.CommandButton("Click Me", 10, 5, 80, 25)
	$btnClose.OnClick = "$$FormS.Hide"
	While $FormS.Visible
		$=Execute($FormS.DoEvents())
	Loop
ENDFUNCTION
_________________________
Kelly