اختيار وتحديد قيمة مربع نص

لمطلوب
لدي مربع نص واسمه text

ولدي خيارين وهم p1 و p2

عند اختيار p1 فقط
يكون مربع النص يساوي 5

وعند اختيار p2 فقط
يكون مربع النص يساوي 10
وعند اختيار الخيارين يكون مربه النص يساوي 10

وعند عدم اختيار اي خيار يكون مربع النص يساوي 0

انظر الة المرفقات

لقد قمت بوضع هذا الكود في timer ولم ينجح ارجوا بمن لديهم خبره افادتي بالموضوع

If p1.Visible = True And p2.Visible = False Then
text = 5
ElseIf p1.Visible = False And p2.Visible = True Then
text = 10
ElseIf p1.Visible = True And p2.Visible = True Then
text = 10
Else
text = 0
End If

Database3.accdb