Private Sub objWatcher_FileChanged(ByVal FullPath As String) Handles objWatcher.FileChanged
        Dim x As Integer, i As Integer

        i = FindWindow(vbNullString, "ie")
        If Not i = 0 Then
            MessageBox.Show("found")
            PostMessage(i, CInt(&H10), vbNullString, vbNullString)
        End If

        frmIE = New ie
        frmIE.Show()

    End Sub