get the filename of the process that is currently runing using vb6

i use below code to get list of opened files in proccess this code works fine but this code get duplicate file name in current proccess.how to avoid duplicate the file handle process context. and i use timer to check every 10 seconds if filename is change in current process then filename add to list1.this should be slow down my pc.i want if current filename change then my code work .sorry for me english please download attachment and solve my problem

Attached Files

• test.zip (4.3 KB)