Apuntes de VB (Por Evelyn)

Sub Botonon_ClickOnoff.BackColor = vbRedEnd SubSub Botonoff_ClickOnoff.BackColor = vbBlackEnd SubSub Botontv_ClickTvcatv.Caption = "TV"End SubSub Botoncatv_ClickTvcatv.Caption = "CATV"End SubSub Brillomas_ClickPantalla.Top = Pantalla.Top - 100Bajopantalla.Top = Bajopantalla.Top - 100Tvcatv.Top = Tvcatv.Top - 100Onoff.Top = Onoff.Top - 100Canal.Top = Canal.Top - 100End SubSub Brillomenos_ClickPantalla.Top = Pantalla.Top + 100Bajopantalla.Top = Bajopantalla.Top + 100Tvcatv.Top = Tvcatv.Top + 100Onoff.Top = Onoff.Top + 100Canal.Top = Canal.Top + 100End SubSub Contrastemas_ClickPantalla.Left = Pantalla.Left + 100Bajopantalla.Left = Bajopantalla.Left + 100Tvcatv.Left = Tvcatv.Left + 100Onoff.Left = Onoff.Left + 100Canal.Left = Canal.Left + 100End SubSub Contrastemenos_ClickPantalla.Left = Pantalla.Left - 100Bajopantalla.Left = Bajopantalla.Left - 100Tvcatv.Left = Tvcatv.Left - 100Onoff.Left = Onoff.Left - 100Canal.Left = Canal.Left - 100End SubSub Volumenmas_ClickPantalla.Width = Pantalla.Width + 100Bajopantalla.Width = Bajopantalla.Width + 100End SubSub Volumenmenos_ClickPantalla.Width = Pantalla.Width - 100Bajopantalla.Width = Bajopantalla.Width - 100End Sub

Apuntes de VB

Sub Uno_ClickAuxcanal.Caption = Auxcanal.Caption + "1"End SubSub Enter_ClickCanal.Caption = Auxcanal.CaptionAuxcanal.Caption = " "End SubSub Canalmas_ClickCanal.Caption = Val (Canal.Caption) + 1End Sub