Break On
$System = CreateObject("KiXtart.System")
Dim $Form1
$Form1 = $System.Form()
$Form1.Text = "PictureFormIssueTest"
Dim $PictureBox1
$PictureBox1 = $Form1.Controls.PictureBox()
$PictureBox1.Size = 187, 136
$PictureBox1.Location = 33, 12
$PictureBox1.TabStop = 0
$PictureBox1.Image = $System.Bitmap(@SCRIPTDIR + "\logo_kixtartorg.gif")

$Form1.Show
While $Form1.Visible
	$=Execute($System.Application.DoEvents)
Loop