Ficha de trabalho numero 3 exercicio 3

Private Sub cmdarea_Click()
Label2.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub cmdperimetro_Click()
Label1.Caption = 2 * Val(Text1.Text) + 2 * Val(Text2.Text)
End Sub

Private Sub cmdsair_Click()
End
End Sub