'just don't forget to replace comments with present values
Private cdTime As Integer = 10 '360
Private cdDay As Integer = 4 '86400
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
cdDay -= 1
Label1.Text = cdTime & " days remaining"
If cdDay <= 0 Then
cdTime -= 1
cdDay = 4 '86400
End If
If cdTime <= 0 Then
Timer1.Dispose()
Label1.Text = "360 days have been passed"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = String.Empty
End Sub