VBA punktu skaitīšana slīdrādē (PowerPoint)

Biki esmu pieķēries VBA iekš PP :) (Diemžēl esmu tikai nedaudz pazīstams ar VB...)
Doma tāda - ir vairāki slīdi, katrā jautājums ar atbilžu variantiem (čekbokši, opšanbuttoni - baigi labi skan... :). Vajag, lai sapelnītie punkti summētos cauri visiem slīdiem! KAS JĀDARA (JĀMAINA, JĀPAPILDINA), LAI SUMMĒTOS?
Ja kas, triviāls piemērs (diemžēl, nesummējas):
Pirmajā slīdā ir:
****************
Public rez As Integer
---------------------------------------------
Private Sub CommandButton1_Click()

rez = 0
If CheckBox3.Value = True Then rez = rez + 1

ActivePresentation.SlideShowWindow.View.Next

End Sub
********************

Otrajā slīdā arī jautājums un parāda koprezultātu:
********************
Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then rez = rez + 1

TextBox1.Text = Str(rez)

End Sub

Komentāri:

#1 kasis @ 2009.05.06 20:39

Ļoti, ļoti nepieciešama palīdzība! HELP!! :0
Atkārtošu ideju - ir divi slīdi. Pirmajā ir jautājums un trīs čekbokši (atbilžu varianti). Pareizā atbilde ir trešā. Ja atbild pareizi, saņem punktu un ielādējās nākamais slīds.
Otrajā slīdā jautājums un trīs opšanbuttoni (atbilžu varianti) + textboksis. Ja atbild pareizi (1.atb.), tad saņem vēl vienu punktu un teksta kastītē jāparādās kopējam punktu skaitam (piemēram, 2). DIEMŽĒL NEMĀKU PANĀKT PUNKTU SUMMĒŠANU NO SLĪDA UZ SLĪDU!!