asszem
private sub taska.click (index as integer)
if case index
case 0 then
.
.
.
case 1 then
.
.
.
end selectt