Ficha3-4

Private Sub cmd_Click()
area.Caption = PI * (raio.Text) ^ 2
End Sub

Private Sub Command1_Click()
End
End Sub