The Code

​

 

 

 

Public Class Form1

​

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

​

        '## Date Now Computation = Date.Now() ##
        Dim regDate As Date = Date.Now() 'Reverse Print  ' = #12/18/1966 '= Date.Now()
        Dim StrDate As String = regDate.ToString("dd MM yyyy")

        Label1.Text = StrDate

​

        Dim FirstDate As String
        Dim secondDate As Date

​

        Dim CuDate As Date = #4/26/1986# 'Reverse Print 'Date.Now()
        Dim CuStrDate As String = CuDate.ToString("dd MMM yyyy")

​

        Dim DTD = 0
        Dim Cnt = 0
        Dim TTR As Double

        Label2.Text = CuStrDate ' Print Date
        FirstDate = Label2.Text
        secondDate = CDate(FirstDate)

​

        DTD = DateDiff(DateInterval.Day, regDate, secondDate)
        Cnt = Math.Abs(DTD * 1)
        TTR = (Cnt / 365)
        Label3.Text = TTR.ToString("n2")

​

    End Sub

​

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        End

    End Sub

    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Label4.Text = TimeOfDay

    End Sub

​

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Chernobyl1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox2.Image = Image.FromFile(Chernobyl1.FileName)

        End If

    End Sub

End Class