[Help] Code for ListBox

Dim open As New OpenFileDialog
        open.Multiselect = True
        open.Filter = "DLL Files(*.dll) |*.dll"
        open.CheckFileExists = True
        open.ShowDialog()

        If (open.FileName = "") Then
        Else
            For Each item As String In open.FileNames
                Dim listItem As New ListViewItem
                listItem.Text = item
                Dim subItem As New ListViewItem.ListViewSubItem()
                subItem.Text = My.Computer.FileSystem.GetName(item)
                listItem.SubItems.Add(subItem)
                ListView1.Items.Add(listItem)
            Next
        End If

        For Each lrow As ListViewItem In ListView1.SelectedItems
            ListView1.Items.Remove(lrow)
        Next

Private Sub Inject()
        Try
            For Each lrow As ListViewItem In ListView1.Items
                Timer1.Stop()
                Dim TargetProcess As Process() = Process.GetProcessesByName(ComboBox1.Text) 'Change to your .exe
                TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
                pszLibFileRemote = lrow.Text
                pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
                TargetBufferSize = 1 + Len(pszLibFileRemote)
                Dim Rtn As Integer
                Dim LoadLibParamAdr As Integer
                LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
                Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
                CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
                CloseHandle(TargetProcessHandle)
                Success(1)
                Me.Close()
            Next
        Catch es As Exception
            Success(2)
            Me.Close()
        End Try