Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"

Dim i%, hFile%, a$
hFile = FreeFile
    For i = 0 To 93
         Open "C:\a.txt" For Input As #hFile
         Do While Not EOF(hFile)
         Line Input #hFile, a
         Text1(i).Text = Text1(i).Text & a
         Loop
         Close #hFile
    Next i

Dim i%, hFile%, a$
hFile = FreeFile
    For i = 0 To 93
         Open "D:\a.txt" For Input As #hFile
         a = Input(LOF(hFile), #hFile)
         Text1(i).Text = a
         Close #hFile
    Next i

Dim i%, hFile% , a$
hFile = Freefile
    For i = 0 To 93
        Do While Not EOF(hFile)        
         Open "C:\a.txt" For Input As #hFile
         Line Input #hFile, a
         Text(i).Text = Text(i).text & a
         Close #hFile
        Loop
    Next i