Inheritance+(VB)


 * This codes for the creation of a new class called "Bluey". Here, it is specified that the "Bluey" class will inherit all of the characteristics specified in the class for "Greenie".**

Public Class Bluey __// Inherits Greenie//__

Public Class Greenie
 * Here, the new characteristics for the "Greenie" object are specified.**

Public pbxMonster As New PictureBox Public strName As String
 * 'Declarations.**

Public Sub New Dim rndRand As New Random pbxMonster.Location = New Point(rndRand.Next(0, Spawn.Width), rndRand.Next(0, Spawn.Height)) pbxMonster.SizeMode = PictureBoxSizeMode.StretchImage End Sub

End Class