Public Shared Function GetPortNames(ByVal ItemName As String) As String()
        Dim localMachine As RegistryKey = Nothing
        Dim key2 As RegistryKey = Nothing
        Dim strArray As String() = Nothing
        Dim reg As New RegistryPermission(RegistryPermissionAccess.Read, "HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM")
        reg.Assert()
        Try
tryAgain:   localMachine = Registry.LocalMachine
            key2 = localMachine.OpenSubKey("HARDWARE\DEVICEMAP\SERIALCOMM", False)
            If (Not key2 Is Nothing) Then