Как получить список принтеров и очистить очередь печати выбранного принтера? - VB

Формулировка задачи:

Как получить список принтеров и очистить очередь печати выбранного принтера? Вторая часть "Очистить очередь печати" приоритетнее, хотелось бы узнать как обнулить очередь печати. Это та самая функция которая доступна в виндовсе при клике на принтер. Как это сделать програмно. Зачем? нужно для корректной работы и отладки сервера. Может есть идеи или варианты на VBS - это тоже более чем приемлимо.

Решение задачи: «Как получить список принтеров и очистить очередь печати выбранного принтера?»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    If Not SetPrntrStts("My Printer", PrinterControlPurge) Then
        MsgBox "Не смог очистить очередь"
    End If
End Sub
                        