Eh.. WTF.. you guys were too slow to respond so I started without you. Basically, I grabbed my Computer Rename form and did some R&D (reuse and disguise) and got a skeleton together that kinda looks like this. It is not very well disguised and has no working code yet, but at least I have a bit of a form.

Weird thing with the 2nd (filter) form. If you mouse over titles, they disappear.
Code:
; Script to copy tapes from SAN to LTO
; Requires Kixtart 4.x, Kixforms 2.3.0.38
; by Les Ligetfalvy
break on
dim $label,$frame1,$frame2,$label2,$cmd1,$cmd2,$cmd3,$cmd4,$cmd5,$
Global $form,$Text4,$Text5,$Text6,$form2,$list1,$list2,$label1,$OptionButton1,$OptionButton2,$OptionButton3,$CheckBox1,$label7
$ = setoption('explicit','on')

$Form = CreateObject('Kixtart.Form')
$Form.Caption = 'GUI TapeCopy - beta 1'
$Form.Width = 420
$Form.Height = 500
$Form.center

$label = $Form.Label('Note that only monthly backups will show in the list.'
 + @CRLF + 'Copied tapes will not list by their new name right away.',10,10,400,40) 

$Frame1 = $Form.Frame('Select Tape',10,55,240,337)
$Frame2 = $Form.Frame('Action Steps',260,55,145,337)

$label1 = $Form.Label('Monthly Tapes',40,75,120,25)
$list1  = $Form.Listbox(,20,100,220,281)


$label2 = $Form.Label('1:  Select Tape'
  + @CRLF + @CRLF + '2:  Copy'
  + @CRLF + @CRLF + '3:  Repeat or Exit',270,75,160,110) 

$cmd3 = $Form.CommandButton('&Copy',280,270) 
$cmd3.onclick = 'onbutton3click() $$list1.setfocus' 

$cmd4 = $Form.CommandButton('&Group/Date',280,310) 
$cmd4.onclick = 'onbutton4click() $$list1.setfocus' 

$cmd5 = $Form.CommandButton('E&xit',280,350)
$cmd5.onclick = 'onbutton5click() $$list1.setfocus'

$list2 = $Form.Listbox(,9,400,395,60)

$Form.Show 
$list1.setfocus

While $Form.Visible
  $=Execute($Form.DoEvents())
Loop 

FUNCTION onbutton3click ;Copy
; requires the TapeCopy command
  dim $target,$NameSuffix,$NewNamePrefix,$newname,$netdom,$newnamesw,$UserDsw,$UserOsw,$rebootsw,$shellcmd,$selection 
  select
    case $list1.text = -1
      $list2.additem(@time + ' - NO TAPE SELECTED, NOTHING TO COPY!',0)
      exit 1
    case 1
      $list2.additem(@time + ' - DOH!',0)
      exit 1
  endselect
endfunction

FUNCTION onbutton4click ;Select Group and Date
  dim $label3,$savebtn,$label4,$label5,$label6,$,$Frame3,$Frame4
  $Form2 = CreateObject('Kixtart.Form')
  $Form2.Caption = 'BrightStor Tape Groups'
  $Form2.Width = 400
  $Form2.Height = 300
  $Form2.center

  $Frame3 = $Form2.Frame('Date Range',10,28,182,190)
  $Frame4 = $Form2.Frame('Filter Options',202,28,182,190)


  $label3 = $Form2.Label('Enter a date in the format 01-28-05',10,10,390,30)
  $savebtn = $Form2.CommandButton('Save and Return',150,230) 
  $savebtn.onclick = 'onbutton6click()'

  $label4 = $Form2.Label("Date:",30,62,48,15)
  $label4.alignment = 1 
  $Text4 = $Form2.Textbox(Split(@date,'/')[1]+'-'+Split(@date,'/')[2]+'-'+Right(Split(@date,'/')[0],2),80,60,90,20) 

  $label5 = $Form2.Label("Group:",30,92,48,15) 
  $label5.alignment = 1
  $Text5 = $Form2.Textbox('*',80,90,90,20) 

  $OptionButton1 = $Form2.OptionButton("Before Date",230,60,150,20) 
  $OptionButton2 = $Form2.OptionButton("After Date",230,90,150,20) 
  $OptionButton3 = $Form2.OptionButton("Any Date",230,120,150,20) 
  $OptionButton1.checked = 1 
  

  $CheckBox1 = $Form2.Controls.CheckBox("All Groups",230,150,150,20) 

  $Form2.Show 

  While $Form2.Visible
    $=Execute($Form2.DoEvents())
  Loop 
endfunction

FUNCTION onbutton5click ;Exit
  quit 1
endfunction

FUNCTION onbutton6click ;Exit
  ;do stuff
endfunction
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.