... Manager("Chucky", 50, 92, 100 000 , "333 -23 -23 22& quot;, 900 0)chucky.GiveBonus( 300 )chucky.DisplayStats()Dim fran As New SalesPerson("Fran", 43 , 93, 300 0, "9 32- 32- 323 2", 31)fran.GiveBonus ( 20 0) fran.DisplayStats()Console.ReadLine()End ... now have the following constructor.' (name, age, ID, pay, SSN, number of stock options).Dim chucky As New Manager("Chucky", 45 , 101 , 300 00, " ;22 2 -22 -22 22& quot;, 90) End SubIf ... currPay5785ch06.qxd 3/31 /06 10 :26 AM Page 1 74 CHAPTER 6 ■ UNDERSTANDING INHERITANCE AND POLYMORPHISM 179Module ProgramSub Main() Dim chucky As New Manager("Chucky", 45 , 101 , 300 00, " ;22 2 -22 -22 22& quot;,...