Public Function Events(ByVal Message As CD2000Plugin.Interfaces.IPlugin.EnumMessages, ByVal Data As Object) As Boolean Implements CD2000Plugin.Interfaces.IPlugin.Events Select Case Message Case CD2000Plugin.Interfaces.IPlugin. EnumMessages.MainForm_OnCopyDiscovery2000Start MessageBox.Show("Event wurde ausgelöst, Copy-Discovery 2000 wurde gestartet.") 'Auszuführender Code, wenn CD2000 startet. Case CD2000Plugin.Interfaces.IPlugin.EnumMessages.About_Close MessageBox.Show("Event wurde ausgelöst, das CD2000-About(Über)-Fenster wurde geschlossen.") 'Auszuführender Code, wenn das Über Fenster geschlossen wird. End Select End Function