'Följande korta rader som finns i subrutinerna kan naturligtvis sättas i vilken subrutin man vill.

Private Sub Form_Load()
BlockInput True 'Blockerar insignaler
End Sub

Private sub Form_Unload()
BlockInput False 'Slutar att blockera insignaler
End Sub