Contro remoto (por Tali)

Private Sub Botoncatv_Click()

Tvcatv.Caption = "Catv"

End Sub

Private Sub Botonoff_Click()

Onoff.BackColor = vbBlack
End Sub

Private Sub Botonon_Click()

Onoff.BackColor = vbRed

End Sub

Private Sub Botontv_Click()

Tvcatv.Caption = "Tv"

End Sub

Private Sub Brillomas_Click()

Pantalla.Top = Pantalla.Top + 100

Botones.Top = Botones.Top + 100

Tvcatv.Top = Tvcatv.Top + 100

Onoff.Top = Onoff.Top + 100

Nrocanal.Top = Nrocanal.Top + 100

End Sub

Private Sub Brillomenos_Click()

Pantalla.Top = Pantalla.Top - 100

Botones.Top = Botones.Top - 100

Tvcatv.Top = Tvcatv.Top - 100

Onoff.Top = Onoff.Top - 100

Nrocanal.Top = Nrocanal.Top - 100

End Sub

Private Sub Calanmenos_Click()

Nrocanal.Caption = Val(Nrocanal.Caption) - 1

End Sub

Private Sub Canalmas_Click()

Nrocanal.Caption = Val(Nrocanal.Caption) + 1

End Sub

Private Sub cero_Click()

Auxcanal.Caption = Auxcanal.Caption + "0"

End Sub

Private Sub cinco_Click()

Auxcanal.Caption = Auxcanal.Caption + "5"

End Sub

Private Sub Contrastemas_Click()

Pantalla.Left = Pantalla.Left + 100

Botones.Left = Botones.Left + 100

Tvcatv.Left = Tvcatv.Left + 100

Onoff.Left = Onoff.Left + 100

Nrocanal.Left = Nrocanal.Left + 100

End Sub

Private Sub Contrastemenos_Click()

Pantalla.Left = Pantalla.Left - 100

Botones.Left = Botones.Left - 100

Tvcatv.Left = Tvcatv.Left - 100

Onoff.Left = Onoff.Left - 100

Nrocanal.Left = Nrocanal.Left - 100

End Sub

Private Sub cuatro_Click()

Auxcanal.Caption = Auxcanal.Caption + "4"

End Sub

Private Sub dos_Click()

Auxcanal.Caption = Auxcanal.Caption + "2"

End Sub

Private Sub Enter_Click()

Nrocanal.Caption = Auxcanal.CaptionAuxcanal.Caption = ""

End Sub

Private Sub nueve_Click()

Auxcanal.Caption = Auxcanal.Caption + "9"

End Sub

Private Sub ocho_Click()

Auxcanal.Caption = Auxcanal.Caption + "8"

End Sub

Private Sub seis_Click()

Auxcanal.Caption = Auxcanal.Caption + "6"

End Sub

Private Sub siete_Click()

Auxcanal.Caption = Auxcanal.Caption + "7"

End Sub

Private Sub tres_Click()

Auxcanal.Caption = Auxcanal.Caption + "3"

End Sub

Private Sub uno_Click()

Auxcanal.Caption = Auxcanal.Caption + "1"

End Sub

Private Sub Volumenmas_Click()

Pantalla.Width = Pantalla.Width + 100

Botones.Width = Botones.Width + 100

Tvcatv.Width = Tvcatv.Width + 100

Onoff.Width = Onoff.Width + 100

Nrocanal.Width = Nrocanal.Width + 100

End Sub

Private Sub Volumenmenos_Click()

Pantalla.Width = Pantalla.Width - 100

Botones.Width = Botones.Width - 100

Tvcatv.Width = Tvcatv.Width - 100

Onoff.Width = Onoff.Width - 100

Nrocanal.Width = Nrocanal.Width - 100

End Sub

Private Sub Offon_Click()

If Onoff.Backcolor_Vbred then

Onoff.Backcolor_Vbblack

Uno Enabled= False (asi con el 2, 3, 4, 5, 6, 7, 8, 9, 0)

Else

Onoff.Backcolor_Vbred

Uno Enabled= True (asi con el 2, 3, 4, 5, 6, 7, 8, 9, 0)

End if

End sub

Private Sub Catvtv_Click()

If Tvcatv.Caption ="Tv" Then

Tvcatv.Caption="Catv"

Else

Tvcatv.Caption ="Tv"

End If

End Sub

Private Sub Canalmas_Click()

If Catvtv .caption="Tv" Then

If Val(Nrocanal.caption)<13>

nrocanal.caption= Val(Nrocanal.caption)+1

Else

Nrocanal.caption=1

End if

Else

If Val(Nrocanal.caption)<130>

Nrocanal.caption=Val(Nrocanal.caption)+1

Else

Nrocanal.Caption=1

End if

End if

End Sub

Private Sub Enter_Click()

Auxfavo.caption=Nrocanal.caption

Private Sub Anterior_Click()

Auxcanal.caption=Auxfavo.caption

Auxfavo.caption=Nrocanal.caption

Nrocanal.caption=Auxcanal.caption

End Sub