apuntes de la calse, fecha 6/7

Sub Uno_Click

Auxcanal.Caption = Auxcanal.Caption + "1"

End Sub

Sub Enter_Click

Canal.Caption = Auxcanal.Caption

Auxcanal.Caption = " "

End Sub

Sub Canalmas_Click

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

End Sub