wolf99

    Private Function GetSerialPortNames() As List(Of String)
        Dim PortNames As New List(Of String)
        For Each PortName In My.Computer.Ports.SerialPortNames
            PortNames.Add(PortName)
        Next
        Return PortNames
    End Function

wolf99

    Private Sub ChangeFormControlEnabledState(Of T As Control)(f As Form, state As Boolean)
        Dim c As Control
        For Each c In f.Controls
            If TypeOf c Is T Then
                CType(c, T).Enabled = state
            End If
        Next
    End Sub