I added this line to combobox and now work :) thanks
SerialPort1.PortName = ComboBox1.SelectedItem
that's the final editing
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
SerialPort1.PortName = ComboBox1.SelectedItem
End Sub
End Class