Namespace Items.MegaStones ''' ''' The Mega Stone for Kangaskhan. ''' Public Class Kangaskhanite Inherits MegaStone Public Sub New() MyBase.New("Kangaskhan", 115) _textureRectangle = New Rectangle(168, 24, 24, 24) End Sub End Class End Namespace