Reagieren auf das Schließen des Adobe Reader Druckfensters

For Each Ctrl In Me.Controls
            If TypeOf Ctrl Is CheckBox Then
                If Not DirectCast(Ctrl, CheckBox).Name = "chkbArchiv" Then  
                    If DirectCast(Ctrl, CheckBox).Checked Then
                        Try
                            streamToPrint = New StreamReader(filePath)
                            Try
                                AddHandler PrintDocument1.PrintPage, AddressOf PrintDocument1_PrintPage
                                PrintDocument1.PrinterSettings.PrinterName = DirectCast(Ctrl, CheckBox).Text
                                Shell(String.Format("rundll32 printui.dll,PrintUIEntry /y /n ""{0}""", DirectCast(Ctrl, CheckBox).Text))  
                                AxAcroPDF1.Print()
                            Finally
                                streamToPrint.Close()
                            End Try
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                        Wartezeitende = Date.Now.Hour * 3600 + Date.Now.Minute * 60 + Date.Now.Second + 20

                        Dim Counter As Integer = 0
                        Do While True
                            If Not Warteschlangeleer(DirectCast(Ctrl, CheckBox).Text) Then
                                Counter = 1
                            End If
                            If Warteschlangeleer(DirectCast(Ctrl, CheckBox).Text) And Counter = 1 Then
                                Counter = 2
                            End If
                            If (Warteschlangeleer(DirectCast(Ctrl, CheckBox).Text) And Date.Now.Hour * 3600 + Date.Now.Minute * 60 + Date.Now.Second > Wartezeitende) Or (Counter = 2) Then
                                Exit Do
                            End If
                        Loop
                    End If
                End If
            End If
        Next

Private Function Warteschlangeleer(Druckername As String) As Boolean
        Dim JobQuery As String = "Select * From Win32_Printjob"  
        Warteschlangeleer = True
        Dim Printer As String = ""  
        Dim Jobs As New ManagementObjectSearcher(JobQuery)
        For Each Job As ManagementObject In Jobs.Get()
            Printer = WMIGetInfo(Job, "DriverName")  
            If Printer = Druckername Then
                Warteschlangeleer = False
            End If
        Next
    End Function

    Private Function WMIGetInfo(ByVal WMIObj As ManagementObject, _
    ByVal Key As String) As String

        If Not WMIObj(Key) Is Nothing Then
            Return WMIObj(Key).ToString
        Else
            Return ""  
        End If
    End Function

If(Instr(Name, Druckername)>0)