Break On
$System = CreateObject("Kixforms.System")
If Not $System
   $nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16)
   Quit()
EndIf
$nul = $System.Application.EnableVisualStyles

$Form1 = $System.Form()
$Form1.FormBorderStyle = 1  ;FormBorderStyle_FixedSingle
$Form1.StartPosition = 1  ;FormStartPosition_CenterScreen
$Form1.Size = $System.Size(227,134) ;(Width,Height)
$Form1.Text = "Question..."

$ComboBox1 = $System.ComboBox()
$ComboBox1.DropDownWidth = 190
$ComboBox1.Left = 10
$ComboBox1.Text = ""
$ComboBox1.Top = 40
$ComboBox1.Width = 190
$nul = $Form1.Controls.Add($ComboBox1)

$ComboBox1Item0 = $ComboBox1.Items.Add("VDI 1")
$ComboBox1Item1 = $ComboBox1.Items.Add("VDI 2")
$ComboBox1Item2 = $ComboBox1.Items.Add("VDI 3")

$Label1 = $System.Label()
$Label1.Left = 10
$Label1.Text = "Please select your VDI collection"
$Label1.Top = 10
$Label1.Width = 190
$nul = $Form1.Controls.Add($Label1)

$Button1 = $System.Button()
$Button1.Click = "ButtonOKClick()"
$Button1.Left = 10
$Button1.Text = "OK"
$Button1.Top = 70
$nul = $Form1.Controls.Add($Button1)

$Form1.Show  ;Displays the Form

While $Form1.Visible
   $Nul = Execute($Form1.DoEvents())
Loop
Exit 0

Function ButtonOKClick()
	Select
		Case $ComboBox1.Text = "VDI 1"
			? "Execute VDI 1 RDP file"
		Case $ComboBox1.Text = "VDI 2"
			? "Execute VDI 2 RDP file"
		Case $ComboBox1.Text = "VDI 3"
			? "Execute VDI 3 RDP file"
		Case 1
			?"Invalid VDI collection selected."
EndFunction