Ringrazio per la risposta, provvedo a modificarlo. Io penso che non mi veda il valore poi calcolare il perimetro.
Riguardo il "double", eseguito il debug, VB mi evidenzia la stringadicendomi che il valore Short non va bene... C'entra qualcosa?codice:Risultato = CStr(TextBox2.Text)
"CTtype" e "ToString" non li conosco xD