Break On 
$System = CreateObject("Kixtart.System") 
If VarType($System)<>9 or @ERROR 
  $null=MessageBox("Unable to initialize the KiXforms system namespace!","Error",0) 
  exit 0 
Endif 

;************* Form ************** 
$Form = $System.Form() 
$Form.StartPosition = $System.FormStartPosition.Manual 
$Form.FormBorderStyle = 1 
$Form.Text = "Phone # Finder" 
$Form.Width = 500 
$Form.Height = 165 
$Form.ForeColor = 231,223,231 
$Form.OnClosing = "SetTaskbar()" 
$Form.OnResize = "FormResized()" 
;************************************** 

;************* Label1 ************** 
$Label1 = $Form.Controls.Label("Enter First or Last Name", 15, 5, 120, 15) 
;************************************** 

;************* ComboBox1 ************** 
$ComboBox1 = $Form.Controls.ComboBox("", 135, 3, 120, 20) 
$ComboBox1.Sorted=1 
$ComboBox1.SetFocus 
;************************************** 

;************* Button1 ************** 
$Button1 = $Form.Controls.Button("Find", 260, 3, 35, 20) 
$Button1.Default = 1 
$Button1.OnClick = "GetInfo()" 
;************************************** 

;************* ListViewEx1 ************** 
$ListViewEx1 = $Form.Controls.ListView("ListViewEx1", 10, 28, 470, 70) 
$ListViewEx1.AutoArrange = "True" 
$ListViewEx1.FullRowSelect = "True" 
$ListViewEx1.HideSelection = "False" 
$NameColumn = $ListViewEx1.Columns.Add("Name",120,0) 
$ExtColumn = $ListViewEx1.Columns.Add("Ext",46,0) 
$PhoneColumn = $ListViewEx1.Columns.Add("Phone",85,0) 
$LocColumn = $ListViewEx1.Columns.Add("Location",109,0) 
$DeptColumn = $ListViewEx1.Columns.Add("Dept",89,0) 
;************************************** 

;************* Menus ************** 
$Form.Menu = $System.MainMenu() 
$Form.Menu.Style = 1 
$Form.SettingsMenu = $Form.Menu.menuitems.add("File") 
$Form.TaskMenu = $Form.SettingsMenu.menuitems.add("Run In Taskbar") 
$Form.TaskMenu.onclick="SetTaskbar()" 
$Form.ExitMenu = $Form.SettingsMenu.menuitems.add("Exit") 
$Form.ExitMenu.onclick="$$Form.Hide" 
;************************************** 

$Form.Show 
While $Form.Visible or $notifyicon 
   $=Execute($Form.DoEvents()) 
Loop 
Exit 1 

;********************************* 
;************* UDFs ************** 
;********************************* 
FUNCTION SetTaskbar() 
   $Form.TaskMenu.Checked=1 
   $notifyicon = $System.NotifyIcon() 
   $notifyicon.visible = 1 
   $notifyicon.text = "Phone # Finder" 
   $notifyicon.icon = $System.BuiltInIcons(5) 
   $notifyicon.OnClick = "UnSetTaskbar()" 
   $form.hide 
ENDFUNCTION 

FUNCTION UnSetTaskbar() 
   $form.Show 
   $form.Activate 
   If $Form.WindowState = $System.FormWindowState.Minimized 
      $Form.WindowState = $System.FormWindowState.Normal 
   Endif 
   $notifyicon.visible = 0 
   $notifyicon.text = "" 
   $notifyicon = 0 
   $Form.TaskMenu.Checked=0 
ENDFUNCTION 

FUNCTION FormResized() 
   If $Form.WindowState = $System.FormWindowState.Minimized 
      SetTaskbar() 
   Endif 
ENDFUNCTION