Public Function AltaBoton(ByVal pID As Integer, ByVal pBoton As Button) As Boolean
        Dim unaSala As Sala
        Dim otraSala As Sala
        For Each unaSala In Me.ColSalas
            otraSala = Me.BuscarSalaXID(pID)
            If unaSala.IDSala = otraSala.IDSala Then
                unaSala.ColReservas.Add(pBoton)
                Return True
            End If
        Next
        Return False
    End Function