Private Sub TimerFensterHolen_Tick(sender As Object, e As EventArgs) _
      Handles TimerFensterHolen.Tick
 
        Dim DruckVorschauIntPrt As IntPtr = IntPtr.Zero
        DruckVorschauIntPrt = FindWindowByCaption(IntPtr.Zero, "Druckvorschau")
 
        If DruckVorschauIntPrt <> IntPtr.Zero Then
 
            Dim sClassName As New System.Text.StringBuilder("", 256)
            Call GetClassName(DruckVorschauIntPrt, sClassName, 256)
 
            If sClassName.ToString = "Internet Explorer_TridentDlgFrame" Then
 
                SetWindowPos(DruckVorschauIntPrt, HWND_NOTOPMOST, 50, 50, 1750, _
                  1000, uFlags.SWP_SHOWWINDOW)
 
                Dim rect1 As New RECT
                GetWindowRect(DruckVorschauIntPrt, rect1)
 
                If rect1.Left < 100 And rect1.Top < 100 Then
 
                    TimerFensterHolen.Enabled = False
 
                    Me.Close()
                End If
 
            End If
        End If
 
    End Sub

Grüße Andi