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

[ظل امرأه]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
عندي كودين لا يتطبقون
ولا ادري ما الاسباب
فقد حاولت اكثر من مرة
المشكلة في ذلك كيف اقنع الطالباات
افكر ان احذفهم
, ,
ويظهر عندي شريط باللون الاصفر على بداية الرنامج
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

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