fork download

copy

Imports System
 
Public Class Test
	Private length As Double
    Private width As Double
 
    'Public methods
    Public Sub AcceptDetails()
        length = 4.5
        width = 3.5
    End Sub
 
    Public Function GetArea() As Double
        GetArea = length * width
    End Function
    Public Sub Display()
        Console.WriteLine("Length: {0}", length)
        Console.WriteLine("Width: {0}", width)
        Console.WriteLine("Area: {0}", GetArea())
 
    End Sub
 
    Shared Sub Main()
        Dim r As New Rectangle()
        r.Acceptdetails()
        r.Display()
        Console.ReadLine()
    End Sub
End Class

Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.

/home/EyoWNC/prog.vb (24,31) : error VBNC30451: 'Rectangle' is not declared. It may be inaccessible due to its protection level.
There were 1 errors and 0 warnings.
Compilation took 00:00:00.7328600

Standard output is empty