Apunte de Visual Basic 20/7/07

Sub offon_click
if onoff.backcolor = vbred then
onoff.backcolor = vbblack
uno.enabled = false
dos.enabled = false
ETC. (todos los demas botones)
else
onoff.backcolor = vbred
uno.enabled = true
dos.enabled = true
ETC.(todos los demas botones)
end if
end sub


Sub canalmas_click
if val (nrocanal.caption) <13
nrocanal.caption = val (nrocanal.caption) + 1
else
nrocanal.caption = 1
end if
End sub


Sub catvtv_click
if tvcatv.caption = "tv" then
tvcatv.caption = "catv"
else
tvcatv.caption = "tv"