You are calling the sub refresh1 repeatedly, and that sub creates a new Listbox every time it runs.

A possible solution is to build that Listbox outside the function, and in refresh1 you just delete each element of the listbox, and fill it again.

BTW it would help if your sub names were consistently in English ;-), that way a reader would only need to know one human language to understand the code.