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 la funzione .Lock della Classe Object.

Poniamo il caso che cliccando su un Button1 vogliamo bloccare la sollevazione degli eventi associati ad 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.

Per poter sbloccare l'oggetto si utilizzerà la funzione:

Object.Unlock(oggetto_precedentemente_bloccato)

e per sapere se un oggetto è stato bloccato, si utilizzerà la funzione:

Object.IsLock(nome_oggetto) As Boolean

la quale restituisce un valore booleano.