Still doesn't work... Gets the screen output

 Code:
;~~< Form1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim $Form1
$Form1 = $System.Form()
$Form1.Size = 407, 395
$Form1.Text = "Form1"
;~~< ComboBox1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim $ComboBox1
$ComboBox1 = $Form1.Controls.ComboBox()
$ComboBox1.Size = 121, 21
$ComboBox1.SelectedIndex = -1

For $a = 1 to 10
	$ = $Combobox1.items.add($a)
Next

$Form1.Show
While $Form1.Visible
	$=Execute($System.Application.DoEvents)
Loop
_________________________
How to ask questions the smart way <-----------> Before you ask