Private Sub test(Byval sender as Object,Byval e as Eventargs)
SyncLock (_MeinLockObjekt)
'Bis an diese Stelle läuft das Porgramm definitiv
RaiseEvent test2 (sender,e)
End SyncLock
end sub

Private Sub testblaaa(Byval sender Object, Byval e as Evnetargs) Handles _
  SteuerungenVerwaltung.test2
 
synclock (_meinLockObject)
'die steuerung wird grafisch dargestellt
'Es kommen aber nicht alle events an
end synclock
 
end sub