Private Sub NumericUpDown1_ValueChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles NumericUpDown1.ValueChanged
        My.Settings.NumUpDown = NumericUpDown1.Value
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        NumericUpDown1.Value = My.Settings.NumUpDown
    End Sub

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles NumericUpDown1.ValueChanged
        My.Settings.NumUpDown = NumericUpDown1.Value
 
        If NumericUpDown1.Value < 1 Then
            NumericUpDown1.Value = 1
        End If
    End Sub