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 )
public function getborrowername() as string
public function getemailaddress() as string
public function getborrowerid() as integer
public function getitemonloan() as integer
public sub updatesitemonloan(l as integer)
Console.WriteLine("borrowername:" & borrowername)
Dim NewBorrower As New borrower()
NewBorrower.Create("Sylvia", "adc@email.com", 123)
NewBorrower.printdetail()