control remoto, VB, ari.t

sub botonon_click
onoff.backcolor = vbred
end sub

sub botonoff_click
onoff.backcolor = vbblack
end sub

sub botontv_click
tvcatv.caption = "tv"
end sub

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

Para ensanchar (el volumen): propiedad width
Para (el contraste): propiedad left