Dim $l[31]
GUICreate('',999,750)
GUISetBKColor(0x000000)
For $i=0 To 30
$l[$i]=GUICtrlCreateLabel('',8+$i*32,0,20,750)
GUICtrlSetColor(-1,0x00ff00)
Next
GUISetState()
While 1
$y=Random(0,30,1)
$c=Chr(Random(32,122,1))
GUICtrlSetData($l[$y],$c&@LF&StringLeft(GUICtrlRead($l[$y]),120))
WEnd