Ficha3-3

Private Sub cmd_Click()
area.Caption = Val(base.Text) * Val(altura.Text)
perimetro.Caption = 2 * Val(base.Text) + 2 * Val(altura.Text)
End Sub

Private Sub cmd2_Click()
End
End Sub