Public Class MachiningParameterExpanderV Private WithEvents m_MachiningParameterExpanderVM As MachiningParameterExpanderVM Sub New() ' La chiamata è richiesta dalla finestra di progettazione. InitializeComponent() ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent(). Me.DataContext = Map.refMachiningParameterExpanderVM m_MachiningParameterExpanderVM = Map.refMachiningParameterExpanderVM End Sub Private Sub FocusOnSlider() Handles m_MachiningParameterExpanderVM.m_FocusOnSlider Me.SliderV.Focus() End Sub End Class