Moving captions?

[JeffCFW]

New user here, so please forgive my ignorance:

LblA and LblB captions (on ppt Slide 1) are set to read "0."

Command Boxes 1-4 (on click) allow the user to manipulate the caption in LblA to generate new numbers.

Command Box 5 (on click) advances ppt to Slide 2.

On the same click, I want the LblB caption to duplicate the current caption in LblA and LblA caption to revert to 0. Currently, the slide advances, but both label caption read "0."

So far, all modules are set as Private Subs because I don't know what else to do with them (like I said - 'newbie').
Any advice?

[JeffCFW]

It occurs to me that it might be easier to answer the question if you could see the code I've written so far:

Private Sub Add1_Click()
lblX.Caption = lblX.Caption + 1
TotalX = TotalX + 1
End Sub

Private Sub Add10_Click()
lblX.Caption = lblX.Caption + 10
TotalX = TotalX + 10
End Sub

Private Sub Add5_Click()
lblX.Caption = lblX.Caption + 5
TotalX = TotalX + 5
End Sub

Private Sub LeftWin_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide (9)
TotalY = TotalY + TotalX
lblY.Caption = TotalY
TotalX = 0
lblX.Caption = 0
End Sub

Private Sub Reset_Click()
lblX.Caption = 0
TotalX = 0
End Sub

Private Sub ResetY_Click()
lblY.Caption = 0
TotalY = 0
End Sub