control remoto (por david)

sub botontv_click
tvcatv.caption = "tv"
end sub

sub botoncatv_click
tvcatv.caption = "catv"
end sub

sub botonon_click
onoff.backcolor =vbred
end sub

sub botonoff_click
onoff.backcolor = vbblack
end sub

sub brillomas_click
pantalla.top = pantalla.top = + 100
end sub

sub brillo menos_click
pantalla.top = pantalla.top = - 100
end sub

sub contrastemas_click
pantalla.left = pantalla.left = + 100
end sub

sub contrastemenos_click
pantalla.left = pantalla.left = - 100
end sub

sub volumenmas_click
pantalla.width = pantalla.width = + 100
end sub

sub volumenmenos_click
pantalla.width = pantalla.width = - 100
end sub