Imports system
Imports System.Drawing
Public Interface IPlugIn
 
    Property Location() As Point
 
    Property Size() As Size
 
    Property AllowChangeLocation() As Boolean
 
    Property NeedUpdate() As Boolean
 
    Sub Initialize()
 
    Sub Settings()
 
End Interface

Private Sub SettingsToolStripMenuItem_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles SettingsToolStripMenuItem.Click
        myPlugIn.Settings()
End Sub

Public Sub Settings() Implements PowerDesktopInterface.IPlugIn.Settings
        'MessageBox.Show("", "", MessageBoxButtons.OK, 
        ' MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        Dim s As New clsSettings(Region, SubRegion)
        'auswerten von abbrechen oder ok erfolgt in clssettings
        If s.ShowDialog() = DialogResult.OK Then
            setColors()
            setRegion()
            NeedUpdate = True
        End If
        s.Dispose()
End Sub