Public Class MachiningParameterExpanderV Private WithEvents m_MachiningParameterExpanderVM As New MachiningParameterExpanderVM Friend Sub FocusOnSlider() Handles m_MachiningParameterExpanderVM.m_FocusOnSlider Me.SliderV.Focus() End Sub End Class