Control remoto

Private Sub Boton1_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
Private Sub Boton2_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub Brillomas_Click()Pantalla.Top = Pantalla.Top + 100End Sub
Private Sub Brillomenos_Click()Pantalla.Top = Pantalla.Top - 100End Sub
Private Sub Canalmas_Click()CANALES.Caption = CANALES.Caption + 1End Sub
Private Sub Canalmenos_Click()If CANALES.Caption > 0 ThenCANALES.Caption = CANALES.Caption - 1ElseCANALES.Caption = 129End IfEnd Sub
Private Sub Volumenmas_Click()Pantalla.Left = Pantalla.Left + 100End Sub
Private Sub Volumenmenos_Click()Pantalla.Left = Pantalla.Left - 100End Sub
Private Sub ENTER_Click()CANALES.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub Boton0_Click()Boton0.Caption = "0"End Sub
Private Sub Boton3_Click()auxiliar.Caption = auxiliar.Caption + "3"End Sub
Private Sub Boton4_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub Boton6_Click()auxiliar.Caption = auxiliar.Caption + "6"End Sub
Private Sub Boton7_Click()auxiliar.Caption = auxiliar.Caption + "7"End Sub
Private Sub Boton8_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub Boton9_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub Boton5_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub