NumericUpDown对焦后全选数字

    Private Sub NumericUpDown1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown1.GotFocus
        NumericUpDown1.Select(0, NumericUpDown1.Value.ToString().Length)
    End Sub
    Private Sub NumericUpDown2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown2.GotFocus
        NumericUpDown2.Select(0, NumericUpDown2.Value.ToString().Length)
    End Sub
    Private Sub NumericUpDown3_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown3.GotFocus
        NumericUpDown3.Select(0, NumericUpDown3.Value.ToString().Length)
    End Sub