Namespace Items.Stones Public Class WaterStone Inherits StoneItem Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of Pokémon evolve. It is the blue of a pool of clear water." Public Sub New() _textureRectangle = New Rectangle(24, 24, 24, 24) End Sub End Class End Namespace