Public Class Casilla
    Inherits Encasillable
    Dim e As Elemento
    Dim p As Pastilla
 
    ' Sub New(ByVal elemento As Elemento, ByVal pastilla As Pastilla)
    ' elemento = e
    '  pastilla = p
    '  End Sub
 
 
    Public Property setElemento() As Elemento
 
        Get
            Return e
        End Get
        Set(ByVal value As Elemento)
            e = value
        End Set
 
    End Property
 
 
End Class

Function addElemento(ByVal elemento As Elemento, ByVal x As Integer, ByVal y As Integer)
        dimensiones(x, y).setElemento(elemento)
 
        Return True
    End Function