Ciao a tutti,
io ho creato un programma in VB per calcolare l'area e perimetro di un triangolo rettangolo (sono alle prime armi)

Il codice è questo:

codice:
Module Module1

    Sub Main()
        'Dichiarazioni Variabili
        Dim c1, c2, i, A, P As Single
        Console.WriteLine("Programma creato per il calcolo dell'area e perimetro di un triangolo rettangolo")
        Console.WriteLine("Indicami la lunghezza del primo cateto: ")
        c1 = Console.ReadLine
        Console.WriteLine("Indicami la lunghezza del secondo cateto: ")
        c2 = Console.ReadLine
        Console.WriteLine("Indicami l'altezza dell'ipotenusa")
        i = Console.ReadLine
        If (c1 <= 0 Or c2 <= 0 Or i <= 0) Then
            Console.WriteLine("C'è un'errore nell'immessione dei dati!")
            Console.ReadLine()
        Else
            If (c1 < c2 + i And c2 < c1 + i And i < c2 + c1) Then
                P = c1 + c2 + i
                A = (c1 * c2) / 2
            Else
                Console.WriteLine("I dati immessi non sono corretti, ricontrolla!")
                Console.ReadLine()
            End If
        End If
        Console.WriteLine("Il perimetro è di {0:f1} e l'area è di {1:f1}", P, A)
        Console.ReadLine()
    End Sub

End Module

Adesso però ho due domande...
1. Come faccio a fare apparire i due errori "C'è un'errore nell'immessione dei dati" e "I dati immessi non sono corretti, ricontrolla!" in rosso?
2. Come si fa, una volta che appaiono i due errore, far ricominciare lo script da capo?

Grazie per l'aiuto