لا تعمل بعض الكودات عندي

[ظل امرأه]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
عندي كودين لا يتطبقون
ولا ادري ما الاسباب
فقد حاولت اكثر من مرة
المشكلة في ذلك كيف اقنع الطالباات
افكر ان احذفهم
, ,
ويظهر عندي شريط باللون الاصفر على بداية الرنامج
1 -
Private Sub Command1_Click

Dim a, b As Single
a = Text1.Text
b = Text2.Text
text3.text= then ="=حاصل مساحة المستطيل" & A* B

End Sub


2 -
Private Sub Command1_Click()
If Option1.Value = True Then form2.Show
If option2.Value = True Then from3.Show
End Sub

فارجوووو المساعدة
وتقبلوا تحياتي

[متميزه]

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

[ظل امرأه]

مشكووورة اختي مع اني جربت بس بجرب مرة ثانية
جزاك الله كل خير