InvalidArgument=Value of '0' is not valid for 'SelectedIndex'

See more:

VB

ports

Greetings! I'm currently making a project involving USB Modem and Visual Basic. I created a ComboBox wherein it should show all available ports. Here's my code for the ComboBox.

Imports System
Imports System.IO.Ports
Imports System.Threading

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim ports As String() = SerialPort.GetPortNames
            Dim port As String
            For Each port In ports
                ComboBox1.Items.Add(port)

            Next port
            ComboBox1.SelectedIndex = 0
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

And I keep getting this error:

InvalidArgument=Value of '0' is not valid for 'SelectedIndex'
Parameter name: SelectedIndex

I don't know where I did wrong. Please help. Thank you!