[كود] حساب وقت التاريخ المتبقي مع اضافه مقطع تشغيل صوتي

PHP كود :
Public Class Form1
    Private blnSwitch As Boolean = False
    Public Shared Function GetDateSpanText(fromDate As DateTime, Optional toDate As DateTime = Nothing) As String
        Try
            Dim years As Integer = 0, months As Integer = 0, days As Integer = 0, hours As Integer = 0, minuts As Integer = 0, sec As Integer = 0
            If toDate = Nothing Then toDate = DateTime.Now

            Do Until toDate.AddYears(-1) < fromDate
                years += 1
                toDate = toDate.AddYears(-1)
            Loop

            Do Until toDate.AddMonths(-1) < fromDate
                months += 1
                toDate = toDate.AddMonths(-1)
            Loop

            Do Until toDate.AddDays(-1) < fromDate
                days += 1
                toDate = toDate.AddDays(-1)
            Loop


            Do Until toDate.AddHours(-1) < fromDate
                hours += 1
                toDate = toDate.AddHours(-1)
            Loop
            Do Until toDate.AddMinutes(-1) < fromDate
                minuts += 1
                toDate = toDate.AddMinutes(-1)
            Loop

            Do Until toDate.AddSeconds(-1) < fromDate
                sec += 1
                toDate = toDate.AddSeconds(-1)
            Loop


            Return String.Format("{0} Years {1} Months {2} Days {3} Houres {4} Minutes {5} Seconds", years, months, days, hours, minuts, sec)
        Catch ex As Exception
            Return "Error"
        End Try
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If blnSwitch Then
            My.Computer.Audio.Stop()
            blnSwitch = False
        Else
            My.Computer.Audio.Play(My.Resources._2, AudioPlayMode.BackgroundLoop)
            blnSwitch = True
        End If
    End Sub


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lbltime.Text = GetDateSpanText(Now, "21/11/2022")
    End Sub
End Class