Public Class btnSave

    Private m_Controller As Controller

    Sub New()

        ' Chiamata richiesta dalla finestra di progettazione.
        InitializeComponent()

        ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
        Me.Text = "Save"

    End Sub

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

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

End Class