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

I use following code to get list of opened files in proccess this code works fine but problem is this code get duplicate file name in current proccess. How to avoid duplicate the file handle in our process context. 2nd i use timer to check every 10 seconds in new file in proccess then filename add to list1. But timer working slow on my pc.....