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
$Form.PrintXY(10, 10, "Form Left " + $Form.Left)
$Form.PrintXY(10, 30, "Form Top " + $Form.Top)
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 + 30
	$FormS.Left = $FormSLeft + 5
	$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

---