Locking multiple files

Private Sub Form_Load()
Dim fileLock As String
Open "C:\Text.txt" For Input As #1 ' This is the file that it will read from.
Do While Not EOF(1) ' Loop until end of file.
  Line Input #1, fileLock 'Each line of the file is the path name
  FileNumber = FreeFile() 'Findout next available file number
  Open fileLock For Binary Shared As #FileNumber
  Lock #FileNumber 'Lock file
  Loop
Close #1
'System tray stuff

Dim nd As NOTIFYICONDATA
 Dim lRet As Long
 With nd
  .cbSize = Len(nd)
  .hwnd = picHook.hwnd
  .uID = 1&
  .szTip = "Lock on" & Chr(0)
  .uCallbackMessage = WM_MOUSEMOVE
  .hIcon = Picture1.Picture 'Icon for system tray
  .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
 End With
 lRet = Shell_NotifyIconA(NIM_ADD, nd)
 'Error check here
 'lRet = PostMessage(mnuPophwnd, WM_NULL, 0&, 0&) 'hrmf
End Sub
Private Sub Form_Unload(Cancel As Integer)
 Dim nd As NOTIFYICONDATA
 Dim iRet As Integer
 With nd
  .cbSize = Len(nd)
  .hwnd = picHook.hwnd
  .uID = 1&
 End With
  iRet = Shell_NotifyIconA(NIM_DELETE, nd)
  If FreeFile() <> 1 Then 'Remove files from memory
  For X = 1 To FreeFile() - 1
  Close #X
  Next
  End If
End Sub
Private Sub Timer1_Timer() 'Puts form in background
frmSplash.Hide
Timer1.Enabled = False
End Sub
Private Sub picHook_MouseMove(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 Static bRunning As Boolean
 Dim lMsg As Long
 lMsg = X / Screen.TwipsPerPixelX
 If Not (bRunning) Then 'avoid cascades
  bRunning = True
  Select Case lMsg
   Case WM_LBUTTONDBLCLK:
   If InputBox("Please enter Password:", "Lock") = "password" Then Unload Me 'Password check
   Case WM_LBUTTONDOWN:
   Case WM_LBUTTONUP:
   Case WM_RBUTTONDBLCLK:
   Case WM_RBUTTONDOWN:
   End Select
    bRunning = False
  End If
End Sub