Apunte - (Por Sol y Gasti)

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