PENGGUNAAN DO CASE

X= thisform.text1.Value
DO case
CASE VAL(X)=>60
        Y="Lansia"
CASE VAL(X)=>21 and VAL(thisform.text2.Value)=<60
        Y="Dewasa"
CASE VAL(X)=>17 and VAL(thisform.text2.Value)=<20
        Y="Remaja"
CASE VAL(X)=>5 and VAL(thisform.text2.Value)<17
        Y="Anak-anak"
CASE VAL(X)<5
        Y="Balita"
otherwise
       Y=""
endcase
thisform.text2.Value=Y