btw if you are going to create the port through code rather than dropping the object from the toolbox then you need to define it with events to get the events to work.
Code:
Dim WithEvents MyPort As New System.IO.Ports.SerialPort
In this case all code references would use MyPort
If you drag the one from the toolbox and do not change its name then all code references would be to SerialPort1

In no case should you do both and then add code MyPort=SerialPort1