Si potrebbe agire così:
Nella ClsPerro.class
Public Freud As String
Public Sub _New(pensamiento As String)
Freud = pensamiento
End
Public Sub Pensar() As Boolean
If Freud = "La vida es muy complicada" Then Return True 'Print Print Print Print Print Print Print Print Print Print Print < - - -Cual seria el codigo para matar la instancia dentro de si misma??
End
Public Sub _free()
Try Print "ADIOS"
End
Nella FMain.class
Public batuque As ClsPerro
Public Sub Form_Open()
batuque = New ClsPerro("La vida es muy complicada")
If batuque.Pensar() Then batuque = Null
End
Public Sub Button1_Click()
If IsNull(batuque) Then Message.Error("NULL OBJECT")
End