Add a boolean setting named newvers and set it to true in the settings designer. Then try this
Private Sub Form1_Shown(sender As Object, _
e As EventArgs) Handles Me.Shown
If My.Settings.newvers Then
My.Settings.Upgrade() 'get previous values
'change values that should not be carried over
My.Settings.openedtimes = 1
My.Settings.newvers = False 'turn new version off
Else
My.Settings.openedtimes += 1
End If
If My.Settings.openedtimes > 5 Then Me.Close()
My.Settings.Save()
End Sub