https://foro.gambas-es.org/viewtopic.php?f=1&t=7976&p=47990#p47990
-----------------------------------
vuott
Martes, 21 Abril 2020, 23:22

Re: Puede Una Instancia De Una Clase Suicidarse?
-----------------------------------
Busqué esta solución, que es, sì, ahora universal, pero no me gusta, no me gusta, no me gusta:   :| 

Modulo principal:
[code linenumbers=false syntax=gambas]Private cl As New Class1


Public Sub Main()

  cl = cl.Delete(cl)
  
  If Not Object.IsValid(cl) Then Error.Raise("Objeto inválido ! Dirección: &h" & Hex(Object.Address(cl), 8))

End[/code]


Clase secundaria "[i]Class1.class[/i]":
[code linenumbers=false syntax=gambas]Public Function Delete(c As Class1) As Class1
  
  c = Null
  
  Return c
  
End


Public Sub _free()
  
End[/code]


