Public Class btnExec

    Private m_Controller As Controller

    Sub New()
        ' Chiamata richiesta dalla finestra di progettazione.
        InitializeComponent()
        ' Inizializzazione
        Me.Text = "Exec"
    End Sub

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

    Private Sub btnExec_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
        m_Controller.Exec()
    End Sub

End Class