Ah found that if i make a Class for every Com that i open , it's works nice.
Probably i dont understant something on what a class works.
I call a class : example my class is named jcom , i call it and pass the parameters like :
Dim cser As jcom
cser.Initialize("event1")
cser.opencom("COM1",2400,7,2,2,"astream1") ' open com1'
and i call again for com2
cser.Initialize("event1")
cser.opencom("COM2",2400,7,2,2,"astream1")
is this the correct way ?