Comment enrengistrer un OptionButton ?

Comment enrengistrer un OptionButton ? Voila ma question !

Salut

Tu sauves dans un fichier txt l'etat de Value.
S'il existe un groupe, tu sauves celui qui est
vrai.

Simple :
Open "c:\etat.txt" for output as #1
print #1, Option1.Value
Close

Plusieur :
Open "c:\etat.txt" for output as #1
for a=0 to Option1.listcount - 1
if Option1(a).Value then print #1, a:exit next
next
Close

++

int19h

note : pas tester, mais ca doit etre ca, je pense