Code:
;region Set Code Options
;Set Break to On if not in Logon Mode.
If NOT @LOGONMODE
	Break On
Else
	Break Off
EndIf
;Set Code Options to On
Dim $SO
$SO=SetOption("Explicit", "ON")
$SO=SetOption("NoMacrosInStrings", "ON")
$SO=SetOption("NoVarsInStrings", "ON")
$SO=SetOption("WrapAtEOL", "ON")
;endregion Set Code Options

Global $System
$System = CreateObject("Kixforms.System")
If NOT $System
   $nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16)
   Quit @ERROR
EndIf

Global $frmRegRun
Dim $frmRegRunWidth, $frmRegRunHeight
$frmRegRunWidth = 600
$frmRegRunHeight = 400
Dim $nul, $Imagelist, $MainMenu, $MenuItem1, $MenuItem2
Dim $Panel1, $Panel2, $Panel3, $Listview1, $Listview2, $Splitter1
Dim $ListView1Column0, $ListView1Column1, $ListView2Column0, $ListView2Column1
Dim $ComboBox1, $Label1
Dim $btnExit, $btnDelete, $btnRefresh, $btnRestore, $btnBackup, $btnSave

$frmRegRun = $System.Form()
$frmRegRun.StartPosition = 1  ;FormStartPosition_CenterScreen
$frmRegRun.Size = $System.Size($frmRegRunWidth,$frmRegRunHeight) ;(Width,Height)
$frmRegRun.Text = "Windows Registry Run [Project 01 - Lesson 01]"
$frmRegRun.Icon = $System.Icon.FromBitmap(frmRegRunIcon())
$frmRegRun.SizeChanged = "ChangeSize($frmRegRunWidth, $frmRegRunHeight)"

$ImageList = $System.ImageList()
$nul = $ImageList.Images.AddStrip(MenuBitmap())

$MainMenu = $System.MainMenu()

$MenuItem1 = $MainMenu.MenuItems.Add($System.MenuItem("File"))

$MenuItem2 = $MenuItem1.MenuItems.Add($System.MenuItem("Exit"))
$MenuItem2.Click = "QuitProgram()"

$frmRegRun.Menu = $MainMenu

$Panel1 = $System.Panel()
$Panel1.BorderStyle = 2  ;Fixed3D
$Panel1.Dock = 5  ;Fill
$nul = $frmRegRun.Controls.Add($Panel1)

$ListView2 = $System.ListView()
$ListView2.Dock = 5  ;Fill
$ListView2.Font = $System.Font("Microsoft Sans Serif",10,0) ;Regular
$ListView2.GridLines = -1  ;True
$ListView2.View = $System.View_Details
$nul = $Panel1.Controls.Add($ListView2)

$ListView2Column0 = $ListView2.Columns.Add($System.ColumnHeader("Entry",100,$System.HorizontalAlignment_Left))
$ListView2Column1 = $ListView2.Columns.Add($System.ColumnHeader("Value",100,$System.HorizontalAlignment_Left))

$Label1 = $System.Label()
$Label1.Dock = 1  ;Top
$Label1.Text = "Entries to delete"
$Label1.TextAlign = 32  ;MiddleCenter
$nul = $Panel1.Controls.Add($Label1)

$Splitter1 = $System.Splitter()
$Splitter1.BackColor = $System.Color.FromName("ActiveCaption")
$Splitter1.Dock = 1  ;Top
$Splitter1.Height = 3
$nul = $frmRegRun.Controls.Add($Splitter1)

$Panel2 = $System.Panel()
$Panel2.BorderStyle = 2  ;Fixed3D
$Panel2.Dock = 1  ;Top
$Panel2.Height = 195
$nul = $frmRegRun.Controls.Add($Panel2)

$ListView1 = $System.ListView()
$ListView1.Dock = 5  ;Fill
$ListView1.Font = $System.Font("Microsoft Sans Serif",10,0) ;Regular
$ListView1.GridLines = -1  ;True
$ListView1.View = $System.View_Details
$nul = $Panel2.Controls.Add($ListView1)

$ListView1Column0 = $ListView1.Columns.Add($System.ColumnHeader("Entry",100,$System.HorizontalAlignment_Left))
$ListView1Column1 = $ListView1.Columns.Add($System.ColumnHeader("Value",100,$System.HorizontalAlignment_Left))

$ComboBox1 = $System.ComboBox()
$ComboBox1.Dock = 1  ;Top
$ComboBox1.DropDownWidth = 500
$ComboBox1.IntegralHeight = 0
$ComboBox1.ItemHeight = 13
$ComboBox1.Text = ""
$nul = $Panel2.Controls.Add($ComboBox1)


$Panel3 = $System.Panel()
$Panel3.BorderStyle = 2  ;Fixed3D
$Panel3.Dock = 3  ;Left
$Panel3.Width = 90
$nul = $frmRegRun.Controls.Add($Panel3)

$btnExit = $System.Button()
$btnExit.Dock = 1  ;Top
$btnExit.ImageAlign = 16  ;Middle,Left
$btnExit.Text = "Exit"
$btnExit.TextAlign = 64  ;MiddleRight
$btnExit.ImageList = $ImageList
$btnExit.ImageIndex = 0
$btnExit.Click = "QuitProgram()"
$nul = $Panel3.Controls.Add($btnExit)

$btnDelete = $System.Button()
$btnDelete.Dock = 1  ;Top
$btnDelete.ImageAlign = 16  ;Middle,Left
$btnDelete.Text = "Delete"
$btnDelete.TextAlign = 64  ;MiddleRight
$btnDelete.ImageList = $ImageList
$btnDelete.ImageIndex = 1
$nul = $Panel3.Controls.Add($btnDelete)

$btnRefresh = $System.Button()
$btnRefresh.Dock = 1  ;Top
$btnRefresh.ImageAlign = 16  ;Middle,Left
$btnRefresh.Text = "Refresh"
$btnRefresh.TextAlign = 64  ;MiddleRight
$btnRefresh.ImageList = $ImageList
$btnRefresh.ImageIndex = 2
$nul = $Panel3.Controls.Add($btnRefresh)

$btnRestore = $System.Button()
$btnRestore.Dock = 1  ;Top
$btnRestore.ImageAlign = 16  ;Middle,Left
$btnRestore.Text = "Restore"
$btnRestore.TextAlign = 64  ;MiddleRight
$btnRestore.ImageList = $ImageList
$btnRestore.ImageIndex = 3
$nul = $Panel3.Controls.Add($btnRestore)

$btnBackup = $System.Button()
$btnBackup.Dock = 1  ;Top
$btnBackup.ImageAlign = 16  ;Middle,Left
$btnBackup.Text = "Backup"
$btnBackup.TextAlign = 64  ;MiddleRight
$btnBackup.ImageList = $ImageList
$btnBackup.ImageIndex = 4
$nul = $Panel3.Controls.Add($btnBackup)

$btnSave = $System.Button()
$btnSave.Dock = 1  ;Top
$btnSave.ImageAlign = 16  ;Middle,Left
$btnSave.Text = "Save"
$btnSave.TextAlign = 64  ;MiddleRight
$btnSave.ImageList = $ImageList
$btnSave.ImageIndex = 5
$nul = $Panel3.Controls.Add($btnSave)

$frmRegRun.Show  ;Displays the Form

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

Function frmRegRunIcon()
	$frmRegRunIcon = "
	iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAAAXNSR0IArs4c6QAAAARnQU1B
	AACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAA
	AHlJREFUOE+NkgEOwCAIA/3/q/gZY+IqCtoRk2HY0UJs7QsRQc4SVfvDAPvcz9LoL6BobxmL
	V2EDIFqyE4jmumQfKcUArIaIS6sBdxXD28ctozraZWA6XO0dgU0B89wAl8VsfiVAXjGfwXsS
	S3CSV1wrxKXVM7DHvNQfo/mQ/8A92p4AAAAASUVORK5CYII="
	$frmRegRunIcon = $System.Bitmap.FromBase64String($frmRegRunIcon)
EndFunction

Function MenuBitmap()
	$MenuBitmap = "
	iVBORw0KGgoAAAANSUhEUgAAAGAAAAAQCAYAAADpunr5AAAACXBIWXMAAA7DAAAOwwHHb6hk
	AAAGmElEQVR4nO2YW2wU5xmGv5vcRFGVq14lUitVucAkWTxSaKOgWKIHkcgVAdGGQhungRVN
	IpTWmKQgYqMSWpI0NJUWexrAFBI7DjQGLT4sxudl7bWXGIxhfWBNfdj1OevYpix22KcX49md
	3Z2xHUBqVfWTXmk08//fq/99//m+f0bk//HfEX+pHOWPJdcXxf6iLv4X+f/j8YFzkGg0ilnc
	/hqmbmvI+8cgfyhsTxDhTroQVYQ76XLX4twLf0IoKt/6UREPPHMMUVTzcYpq/cxqrBFJkbPf
	RUZGEdPT04vC5Wpn48ZaMjOT8vz5dB9zc3Omi4/MQfiWhk2V8JsTfbyd3xJL8HW6YMSSFpYU
	98JvFOpXJ6f4eTk8VgQPHhg3F23lEWR1Sfy+ovLtzFOp4xQVefYTZIsXyQsir7cjK4+kjPsm
	Bpw7d8XcgHc/6yYSicQWHo1qi/8qoi18eFrD34pDfHg0SHbO8YQE/1ohGGEm8ly6cEfR3pbk
	Z2b8XeEbrDqTwTNnMuicCCOqWPJ/b2st68rg0QMhHvyZC1nvQrZ3IO+MIrmDCWJLphOx+xLu
	rT4ND73gjOf84WfavNxBZGePlm9DlTbvFW+CCd/EgKqqq+YGHCj2c/PmzZgAkTm4NauJPzID
	/ZPQF4aaGigthd/u+HuKiDdXCDPzmLYlihxZIcymC3MWb0gy/0f+QkSVGB75+DuIKub8isrT
	x6ZI+5TUcrGjC8npQV6oiN8zMeC7H8MDP3XGTcoLathQhXz/aHzuK97EuUkGeL1e6urqqK+v
	p6GhAbfbjdvtxuPx0N7ezvnzFgbsP9bG1NQU0agmPopwe0+WtvMvtjH1+yy6x6F9GHxB2P7G
	EVMhwzbBiCmbZsa0TZixWZenZH5RhZymPLxDN/jJ2bUxI0z5FRVRQQqiqfl14ey+uHAmBohj
	DnnuNLK2XBN+2xdauUmOlUe0uYYSZjSgpaWF+vp6GhsbcbvdXLhwAY/HQ1NTEx0dHVRX+80N
	eOdwK+FwmMgcRPpvgCKgCMMX27jz7MOgCCH1IL4gtA7C69s/shTzS5swMY+wTZi0CV8tIH4y
	v3e4jbpgGyMz0DEWZlmJLWaAKb8u4Acz1k13vUsTbr3L3ID3p5A1nyNvDyA7r5vW+thYu0/L
	YWLAYqipsTBgr8PNyOhYrOZPniyMmYAidATC+IJwoR8a+mDbqwULCjrypDD8RBwLjTXyT0bg
	zeY8QtNa2Wsb0uALQvOABb+iIntDyJ5+80ZqhP4mJBuwp18rVS83IU8dtj71rC7R5v6g8K56
	QG1tl7kBeR/WMTQ8Eqv5o/W1sZ2Pou0876C2+Ope2LrNYSlq6AlhaB6heQQXMUHnn5jntzLA
	FQin8isq8uol5HediYIpKrKxNhFWBmR3aU17c4O2u3U8nXSc1d+kpB6wZk0p+/ZV43A0c+iQ
	l0OHvOTnt5Cf30JBQSsFBa2oqo/sbBdZWZ5UA/a856JvIMjwNIS64iUoWHAwdt1ZWMi5AJT3
	wMu//qupoH2PCzr6Ddf/nIeVATq/LrxecrLdWtlzBcKsOJmB67oFv6Jq4m1uSD3xWME4Ltko
	HRlFiePsPiTLk2KA3e7DbvexZYubXbs85Oa2snt3E6+9VoHd7iQ7u5YXX6wgM9NpbsDuP5XR
	2zdA/yTcCGtN+NYGG74gBI4XEsrOorpXW7yzG17KOpgiZu9ywQirZ2YGJPPrBjxWbGNrTR4P
	HX0YUcWaX1E1sfQ6v9QPraWGoiJrSuMN2BBGAzIzVbzeQAyVlW5crkb8/gCKoqIoqnkJemvv
	5/i7e+mZgM5xuDR/2tBrrr7zS/1w6hps+uX7sQRX0wS/AV1p5iL3LBe6l5s/N/L7xyDbfTDh
	9LO2/A1L/gSRNjdoIv3Y5MPqbsN4/NT7gyFSDRjg+efPsGNHMY2NjQQCAWZnZxcxIPcUHV0B
	OsfhyggpNV/feaeuwadXYNOm92IJOtIEHVctxNejM03QYcZ/bUzjbx7Q8NL5PHa6CynvgdOd
	5vwJ8dThRBPuNRQVWXXC9ANMj2QDnM6LrFtXyb59FTHxJycnFzYgZ1cxX3R0LbjzT16FE5fh
	2CXY+It3ExJcXiZcXra03xBXlgnt87hf/CmiGX813EvoJ6FVJyzzJRvgcBzH4WjG7Y6L39vb
	u4gBb31CZc0QFefDGqq+pPzcBOWuccoqxyirGOVs+Qhny4Zxnh1aWIAlRLJh953/fvaARX7e
	JRtQUlKSsPNDoRB+v9/UgH8DM43DgdT9MCYAAAAASUVORK5CYII="
	$MenuBitmap = $System.Bitmap.FromBase64String($MenuBitmap)
EndFunction

Function ChangeSize($frmRegRunWidth, $frmRegRunHeight)
	Dim $blnChangeSize
	$blnChangeSize = 0
	If $frmRegRun.Width < $frmRegRunWidth
		$blnChangeSize = -1
	Else
		$frmRegRunWidth = $frmRegRun.Width
	EndIf
	If $frmRegRun.Height < $frmRegRunHeight
		$blnChangeSize = -1
	Else
		$frmRegRunHeight = $frmRegRun.Height
	EndIf
	If $blnChangeSize = -1
		$frmRegRun.Size = $System.Size($frmRegRunWidth,$frmRegRunHeight)
	EndIf
EndFunction

Function QuitProgram
	Quit 0
EndFunction