Public Class rbtnHiddenLine Private m_scene As Scene Sub New() ' Chiamata richiesta dalla finestra di progettazione. InitializeComponent() ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent(). Me.Appearance = Windows.Forms.Appearance.Button Me.Text = "HiddenLine" End Sub Public Sub SetScene(ByRef scene As Scene) m_scene = scene End Sub Private Sub rbtnHiddenLine_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click m_scene.HiddenLine() End Sub End Class