private sub commandl_click()
a=0
b=0
for i=1 To5
a=a+1
b=b+2
for j=1 To5
a=a+2
b=b+1
next j
next i
print a;b
end sub