Disable A Button for Seven Days

' This paste was made for a person that I'm helping to view the full code if he's stuck somewhere in my tutorial.
' Link to forum thread: http://tinyurl.com/8eytgrq

Public Class Form1
    ' Declaring date variables.
    Private day, month, year As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Sets the date variables to computer's current date.
        day = My.Computer.Clock.LocalTime.Day
        month = My.Computer.Clock.LocalTime.Month
        year = My.Computer.Clock.LocalTime.Year

        ' Checks whether the button is enabled or disabled.
        ' If the button is disabled, it makes sure it is disabled
        ' for seven days.
        If My.Settings.disabled = False Then
            My.Settings.day = day
            My.Settings.month = month
            My.Settings.year = year
            Button1.Enabled = True
        Else
            Button1.Enabled = False
            If year = My.Settings.year Then
                If month = My.Settings.month Then
                    If day = (My.Settings.day + 7) Or day > (My.Settings.day + 7) Then
                        My.Settings.disabled = False
                        Button1.Enabled = True
                    End If
                Else
                    My.Settings.disabled = False
                    Button1.Enabled = True
                End If
            Else
                My.Settings.disabled = False
                Button1.Enabled = True
            End If
        End If

        My.Settings.Save() ' <-- Don't delete this line. It's important.
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Settings.disabled = True
        Button1.Enabled = False
    End Sub
End Class