:master:

codice:
Private Sub Command1_Click()
    Dim risultato1, risultato2 As Integer
    risultato1 = area_rettangolo(10, 2)
    risultato2 = area_rettangolo(2, 4)
    Text1.Text = risultato1
    Text2.Text = risultato2
End Sub

Private Function area_rettangolo(base, altezza)
    area_rettangolo = base * altezza
End Function