Code:
' Im Deklarationsberich
Public WithEvents oModellPane as BrowserPane
______________________________________________________________________
' Im Activate des Document habe ich dann versucht, dass BrowerPane zu übergeben
Private Sub oAppEvents_OnActivateDocument(...)
...
set oModellPane = DocumentObject.BrowserPanes.(1)
...
end sub
______________________________________________________________________
Private Sub oModellPane_OnActivate()
Msgbox "Bin im onActivate"
End Sub
______________________________________________________________________
Private Sub oModellPane_OnDeactivate()
Msgbox "Bin im onActivate"
End Sub