[متميزه]

1

بخطوة العمليه مضيفه كلمة Then

استخدمي الكود التالي

Dim A, b As Single
A = Text1.Text
b = Text2.Text
A* b & "مساحة المستطيل = "= Text3.Text

2

استخدمي الكود التالي

السبب عندك خطأ بالاملاء

If Option1.Value = True Then Form2.Show
If Option2.Value = True Then Form3.Show