Impedire che un oggetto sollevi qualsiasi evento

Per impedire che un oggetto sollevi qualsiasi evento, tra quelli ovviamente per esso previsti, lo si deve bloccare attraverso il Metodo ".Lock()" della Classe Object.

Poniamo il caso che cliccando su un Button1 vogliamo bloccare la sollevazione degli eventi associati a un altro Button2:

Public Sub Button1_Click()

  Object.Lock(Button2)

End

In questo esempio, dunque, l'Oggetto Button2 viene bloccato, e reso così incapace di sollevare qualsiasi evento.

Riattribuire a un Oggetto la capacità di sollevare un proprio Evento

Per poter sbloccare l'Oggetto, precedentemente bloccato, si utilizzerà il Metodo ".UnLock()" della Classe Object.

Object.Unlock(oggetto_precedentemente_bloccato)

e per sapere se un Oggetto è stato bloccato, si utilizzerà il Metodo ".IsLock()":

Object.IsLock(nome_oggetto) As Boolean

il quale restituisce un valore booleano.