Module Module1

    class borrower  

        private borrowername as string

        private emailaddress as string

        private borrowerid as integer

        private itemonloan as integer

        public sub create(byval  b as string,   byval e as string, byval i as integer   ) 

            borrowername = b

            emailaddress = e

            borrowerid = i

            itemonloan = 0

        end sub

        public function getborrowername() as string

            return (borrowername)

        end function

        public function getemailaddress() as string

            return (emailaddress)

        end function

        public function getborrowerid() as integer

            return (borrowerid)

        end function

        public function getitemonloan() as integer

            return (itemonloan)

        end function

        public sub updatesitemonloan(l as integer)

            itemonloan += l

        end sub

        public sub printdetail()

            Console.WriteLine("borrowername:" & borrowername)

            'Console.WriteLine("borrowerid")

            'Console.WriteLine("emailaddress")

            'Console.WriteLine("itemonloan")

        end sub

    end class

    Sub Main()

        Dim NewBorrower As New borrower()

        NewBorrower.Create("Sylvia", "adc@email.com", 123)

        NewBorrower.printdetail()

        Console.Readline()

    End Sub 

End Module