[vb6]codice che non funziona

[Mabi]

Devi richiamare la procedura.
Inserisci un CommandButton sul form e richiamala premendo il tasto:

Sub AreaCerchio(Raggio As Double)
MsgBox CStr(Raggio * Raggio * 3.14)
End Sub

Private Sub Command1_Click()
AreaCerchio (3)
'AreaCerchio (4)
'AreaCerchio (5)
End Sub