case of
: (Form event=On Header Click )
GET LISTBOX ARRAYS(*;"List Box1";$par3;$par4;$par5;$at_HeaderVars;$par7;$par8)
RESOLVE POINTER($at_HeaderVars{Find in array($at_HeaderVars;Self)};$t_VarName;$tn;$fn)
ALERT($t_VarName)
End case