ucsy

Imports Microsoft.Win32

Public Class Form1
    'This application is coded by MoE TAiN

    Dim X, Y As Integer
    Dim NewPoint As System.Drawing.Point

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Position the Startup Position
        Me.Visible = False
        Dim xx As Integer
        Dim yy As Integer
        xx = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
        yy = Screen.PrimaryScreen.WorkingArea.Height - Me.Height
        Me.Location = New Point(xx, yy)

        'Calculate remaining days
        Dim exDay As DateTime = "9/08/2014"
        Dim now As DateTime = DateTime.Now
        Dim diff As TimeSpan = now.Subtract(exDay)

        Label1.Text = diff.Days & " Days Remaining"

        'Run Startup
        Dim regKey As Microsoft.Win32.RegistryKey
        regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
        regKey.SetValue(Application.ProductName, Application.ExecutablePath)
        regKey.Close()
    End Sub
    Private Sub Label1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDoubleClick
        Me.Close()
        'This application is coded by MoE TAiN
    End Sub

    Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown

        'This application is coded by MoE TAiN
    End Sub
End Class