code:

---

break on cls
 
 cmdGet_List()
 
exit
 
Function cmdGet_List()
 
 Dim $Wait
 
 $Wait = CreateObject("Kixtart.FORM")
 $Wait.CAPTION = "Select a Target"
 $Wait.SCALEWIDTH = 200
 $Wait.SCALEHEIGHT = 250
 $Wait.FONTSIZE = 12
 $Wait.FONTNAME = "Arial"
 $Wait.PrintXY(20,20,"Select Computer Type")
 $Wait.CENTER
 
 $Corporate = $Wait.OptionButton
 $Corporate.FONTSIZE = 11
 $Corporate.FONTNAME = "Arial"
 $Corporate.Caption = "Corporate"
 $Corporate.Left = 45
 $Corporate.Top = 50
 $Corporate.Width = 100
 $Corporate.Height = 25
 
 $Stores = $Wait.OptionButton
 $Stores.Caption = "Stores"
 $Stores.Left = 45
 $Stores.Top = 80
 $Stores.Width = 100
 $Stores.Height = 25
 
 $All = $Wait.OptionButton
 $All.Caption = "All Units"
 $All.Left = 45
 $All.Top = 110
 $All.Width = 100
 $All.Height = 25
 
 $Failed = $Wait.OptionButton
 $Failed.Caption = "Failed List"
 $Failed.Left = 45
 $Failed.Top = 140
 $Failed.Width = 130
 $Failed.Height = 25
 
 $Button2 = $Wait.CommandButton("Ok")
 $Button2.Left = 25
 $Button2.Top = 205
 $Button2.Width = 50
 $Button2.Height = 25
 $Button2.OnClick = "$$Wait.Tag=1"
 
 $Button3 = $Wait.CommandButton("Cancel")
 $Button3.Left = 105
 $Button3.Top = 205
 $Button3.Width = 75
 $Button3.Height = 25
 $Button3.OnClick = 0
 $Button3.OnClick = "$$Wait.Tag=2"

 $Wait.Tag = 0 
 $Wait.Show
 $FORM.Refresh
 
 While $Wait.Visible And Not $Wait.Tag
  $=Execute($Wait.DoEvents)
 Loop
 
 If $Wait.Tag = 1
 
  Select
 
   Case $Corporate.Value = 1
 
    ?"Corporate processing..."
 
   Case $Stores.Value = 1
 
    ?"Stores processing..."
 
   Case $All.Value = 1
 
    ?"All processing..."
 
   Case $Failed.Value = 1
 
    ?"Failed processing..."
 
  EndSelect
 
 EndIf
  
EndFunction

---