avances clase 5/7 por mati levi y gaston zentner

de la clse del 5/7 . hoy, 12/7 nos funcionan los botones de tv, catv, on, off, brillomás y brillomenos, contrastemás y contrastemenos, volumenmas y volumenmenos, canalmas y canalmenos, los botones 1, 2, 3 ,4 ,5 ,6 ,7 ,8, 9 , 0 y el Enter


comandos:
Private Sub brillomas_Click()pantalla.Top = pantalla.Top - 100End Sub
Private Sub brillomenos_Click()pantalla.Top = pantalla.Top + 100End Sub
Private Sub canalmas_Click()canal.Caption = Val(canal.Caption) + 1End Sub
Private Sub canalmenos_Click()canal.Caption = Val(canal.Caption) - 1End Sub
Private Sub catv_Click()tvcatv.Caption = "catv"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
End Sub
Private Sub contrastemenos_Click()pantalla.Left = pantalla.Left - 100End 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 elegirf_Click()
End Sub
Private Sub enter_Click()canal.Caption = auxcanal.Captionauxcanal.Caption = " "End Sub
Private Sub favorito_Click()canal.Caption = "66"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 off_Click()onoff.BackColor = vbBlack
End Sub
Private Sub on_Click()onoff.BackColor = vbRed
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 tv_Click()tvcatv.Caption = "tv"End Sub
Private Sub uno_Click()auxcanal.Caption = auxcanal.Caption + "1"End Sub
Private Sub volumenmas_Click()pantalla.Width = pantalla.Width + 100End Sub
Private Sub volumenmenos_Click()pantalla.Width = pantalla.Width - 100
End Sub