$=createobject("kixtart.form")

$l=$.listview(,5,5,280,90)

$l.headerstyle=0

dim $topics[2]

$topics[0]="starters","new to kixtart","shawn","J'lo"

$topics[1]="moderators","wtf","doc"

$topics[2]="general","symantec pain","Jochen","hoby","kent"

$l.tag=$topics

$.center

$.size=300,140

$l.columns.add("+/-",20).

$l.columns.add("forum",100).

$l.columns.add("post",100).

for each $topic in $topics

 $item=$l.items.add

 $item.subitems(0).text="+"

 $item.subitems(1).text=$topic[0]

next

$.show

$l.onclick="clicked"

while $.visible $e=execute($.doevents) loop



function clicked()

dim $,$i,$!,$a,$_

$a=$l.tag

$i=$l.listindex

$_=ubound($a[$i])-1

select

case "+"=$l.items($i).subitems(0).text

 redim preserve $a[ubound($a)+$_]

 for $!=ubound($a) to $i+$_ step -1

  $a[$!]=$a[$!-$_]

 next

 $l.items($i).subitems(0).text="-"

 for  $=2 to ubound($a[$i])

  $!=$l.items.insert($i+1)

  $!.subitems(1).text=$a[$i][$]

 next

case "-"=$l.items($i).subitems(0).text

 for $!=$i+1 to ubound($a)-$_

  $a[$!]=$a[$!+$_]

 next

 redim preserve $a[ubound($a)-ubound($a[$i])+1]

 $l.items($i).subitems(0).text="+"

 for  $=2 to ubound($a[$i])

  $!=$l.items.remove($i+1)

 next

endselect

$l.tag=$a

endfunction