VB .NET Listando todas as Impressoras Instalados

Imports System.Drawing.Printing

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ''variaveis(utilizadas)

        Dim v_total, v_cont, v_item As Integer

        Dim pd As PrintDocument = New PrintDocument

        Try

            'retornar o numero total de impressoras instaladas

            v_total = pd.PrinterSettings.InstalledPrinters.Count

            'varre todas as impressoas instaladas adicionando-as ao combobox

            With pd.PrinterSettings.InstalledPrinters

                For v_cont = 0 To v_total - 1

                    Me.cbImpressoras.Items.Add(.Item(v_cont))

                Next

            End With

            'seleciona o primeiro item

            Me.cbImpressoras.SelectedIndex = (v_item)

        Catch ex As Exception

            'exibe mensagem de erro cajo aconteça ao inesperada

            MessageBox.Show("Erro de Impressão " + ex.Message)

        Finally

            'libera da memória

            pd.Dispose()

        End Try

    End Sub

End Class