Private Sub out(ByVal o As Object)
        Me.ListBox1.Items.Add(o)
        '// Debug.WriteLine(o)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim prnt As New System.Management.ManagementObjectSearcher("SELECT *" & _
        "FROM Win32_PrintJob")
        Dim printJobs As Management.ManagementObjectCollection = prnt.Get
        If printJobs.Count = 0 Then out("Keine Druckaufträge") : Return
        For Each o As Management.ManagementObject In printJobs
            out(o("Caption"))
            out(o("Size"))
            out(o("Document"))
        Next
    End Sub