Apunte de clase del 12/7

Hoy , 12/7 el formulario que programamos con mi compañero fue:
Private Sub canalmas_Click()
If Val(numerodecanal.Caption) < 13 Then
numerodecanal.Caption = Val(numerodecanal.Caption) + 1
Else
numerodecanal.Caption = 1
End If
End Sub
Private Sub canalmenos_Click()
If Val(numerodecanal.Caption) > 1 Then
numerodecanal.Caption = Val(numerodecanal.Caption) - 1
Else
numerodecanal.Caption = 13
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 onoff_Click()
If OFFON.Caption = "on" Then
OFFON.Caption = "off"
Else
OFFON.Caption = "on"
End If
End Sub
Private Sub cero_Click()
auxcanal.Caption = auxcanal.Caption + "0"
End Sub
Private Sub uno_click ()
auxcanal.Caption = auxcanal.Caption + "1"
Private Sub dos_click ()
auxcanal.Caption = auxcanal.Caption + "2"
End Sub
Private Sub tres_click ()
auxcanal.Caption = auxcanal.Caption + "3"
End Sub
Private Sub cuatro_click ()
auxcanal.Caption = auxcanal.Caption + "4"
End Sub
Private Sub cinco_click ()
auxcanal.Caption = auxcanal.Caption + "5"
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 ocho_click ()
auxcanal.Caption = auxcanal.Caption + "8"
End Sub
Private Sub nueve_click ()
auxcanal.Caption = auxcanal.Caption + "9"