Imports System

Public Module Module1

    Public Sub Main()

        dim Base, Height, Area as double

        Console.WriteLine("The Value Of Your Base")

        Base = Console.Readline()

        Console.WriteLine("The Value Of Your Height")

        Height = Console.ReadLine()

        Area = (Base * Height)

        Console.WriteLine("The Area Of Your Parallelogram is"& Area)

    End Sub

End Module