Apunte clase 6/7

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"

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.Caption
Auxcanal.Caption = ""

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 nueve_Click()

Auxcanal.Caption = Auxcanal.Caption + "9"

End Sub

Private Sub ocho_Click()

Auxcanal.Caption = Auxcanal.Caption + "8"

End Sub

End Sub