contoh Program FoxPro menggunakan Check Box

thisform.list1.clear
if thisform.check1.value=1 then
for a=1 to 5
thisform.list1.additem(STR(a))
Next
else
if thisform.check1.value=1 then
for a=1 to 10
thisform.list1.additem(STR(a))
Next
else
if thisform.check1.value=1 then
for a=1 to 20
thisform.list1.additem(STR(a))
Next
else
end
end
end
end