Namespace Items.Stones Public Class ThunderStone Inherits StoneItem Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of Pokémon evolve. It has a distinct thunderbolt pattern." Public Sub New() _textureRectangle = New Rectangle(0, 24, 24, 24) End Sub End Class End Namespace