[متميزه]

أول شيء تعرفين المتغيرات
Private Sub Command_Click
Dim A,B As Single
A = Text1.Text
B = Text2.Text
A * B & "مساحة المستطيل=" =Text3.Text
End Sub