Good luck.
Dim nCount As Integer
Private Sub CommandButton1_Click()
nCount = nCount + 1
Slide1.Label1.Caption = nCount
End Sub
Private Sub CommandButton2_Click()
If nCount > 0 Then
nCount = nCount - 1
End If
Slide1.Label1.Caption = nCount
End Sub