[nadaa]

Private Sub Command_Click
A = Text1.Text
B = Text2.Text
A * B &"مساحة المستطيل" =Text3.Text
End Sub