Public Class tsExec

    Private m_Controller As Controller

    'Create button
    Dim btnExec As New ToolStripButton

    Sub New()

        MyBase.New()
        Me.Anchor = AnchorStyles.None
        Me.Dock = DockStyle.None
        ' Chiamata richiesta dalla finestra di progettazione.
        InitializeComponent()
        AddButtons()
        ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().

    End Sub

    Public Sub SetController(ByRef controller As Controller)
        m_Controller = controller
    End Sub

    Public Sub AddButtons()
        With btnExec
            'Set properties
            .Name = "btnExec"
            .AutoToolTip = True
            .DisplayStyle = ToolStripItemDisplayStyle.Image
            .Image = EgtUILib.My.Resources.Resources.Exec
            .Text = ""
            .ToolTipText = "Exec"
        End With

        'Create a Handle to a Click Event
        AddHandler btnExec.Click, AddressOf btnExec_Click

        'Add to toolstrip
        MyClass.Items.Add(btnExec)

    End Sub

    'The Click Events
    Private Sub btnExec_Click(sender As Object, e As System.EventArgs)
        m_Controller.Exec()
    End Sub

End Class