Apuntes de Visual Basic (por Vale)

Sub uno_click
auxcanal.caption= auxcanal.caption + "1"
end sub

sub enter_click
nrocanal.caption= auxcanal.caption
auxcanal.caption= ""
end sub

sub canalmas_click
nrocanal.caption= val(nrocanal.caption) + 1
end sub