;~~< OCComboBox >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim $OCComboBox
$OCComboBox = $Panel1.Controls.ComboBox()
$OCComboBox.Size = 173, 21
$OCComboBox.SelectedIndex = -1
$OCComboBox.Location = 496, 35

...

	
	$cmdtxt = "select distinct OrgCode from dbo.SDEUserData"
	$cmd.commandtext = $cmdtxt $rs.open($cmd)
	$rs.MoveFirst
	While Not $rs.eof
		$OC = Trim($rs.fields.item("OrgCode").value)
		If $oc > ''
			$OCComboBox.Items.Add($oc)
		EndIf
		$rs.moveNext
	Loop
	$rs.close
$cn.close

$=$OCComboBox.Items.Add($oc)

$cboTask.AddItem($Val)

;~~< 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

;~~< ListView3 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $ListView3
$ListView3 = $Panel4.Controls.ListView()
$ListView3.Size = 873, 396
$ListView3.View = 1
;~~< ListView3.Columns >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$ColCheckBox = $ListView3.Columns.Add
$ColCurrentUser = $ListView3.Columns.Add
$ColCurrentUser.Width = 112
$ColCurrentUser.Text = "Current User"
$ColSerno = $ListView3.Columns.Add
$ColSerno.Width = 115
$ColSerno.Text = "SerialNumber"
$ColModel = $ListView3.Columns.Add
$ColModel.Width = 138
$ColModel.Text = "Model"
$ColAssigned = $ListView3.Columns.Add
$ColAssigned.Width = 115
$ColAssigned.Text = "Assigned To"
$ColOrgCode = $ListView3.Columns.Add
$ColOrgCode.Width = 114
$ColOrgCode.Text = "Assigned OrgCode"
$CoLocation = $ListView3.Columns.Add
$CoLocation.Width = 124
$CoLocation.Text = "Equipment Location"
$ColInvDate = $ListView3.Columns.Add
$ColInvDate.Width = 101
$ColInvDate.Text = "InvDate"
$ListView3.Text = "ListView3"
$ListView3.Location = 0, 0
$ListView3.GridLines = -1
$ListView3.FullRowSelect = -1
$ListView3.CheckBoxes = -1
$ListView3.Dock = 5

...

$count = $ListView3.SelectedItems.Count
	For Each $item in $ListView3.SelectedItems
		;$test = $items.SubItems(1).Text
		$test = $items.SubItems.item(1).Text
	Next

For Each $Item in $ListView3.SelectedItems
   $test = $Item.SubItems(0).Text
   $=Form1.MsgBox($test,"")
Next

$ComboBox.MaxDropDownItems = Ubound($array) + 2