Perimeter Area VB.Net Exercise - Visual Basic Programming Course

Imports System
Public Class exercise67
    Public Shared Sub Main()
        Dim width As Double
        Dim height As Double
        Dim perimeter, area, diagonal As Double

        Do
            Console.Write("Enter the desired width: ")
            width = Convert.ToDouble(Console.ReadLine())

            If width <> 0 Then
                Console.Write("Enter the desired height: ")
                height = Convert.ToDouble(Console.ReadLine())
                perimeter = width * 2 + height * 2
                Console.WriteLine("Perimeter: {0}", perimeter)
                area = width * height
                Console.WriteLine("Area: {0} ", area)
                diagonal = Math.Sqrt((width * width) + (height * height))
                Console.WriteLine("Diagonal: {0} ", diagonal)
            End If
        Loop While width <> 0
    End Sub
End Class