Public Class Form1
    Dim WithEvents Cb As New ComboBox With {.Dock = DockStyle.Top, .Parent = Me}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For Each prt As String In Printing.PrinterSettings.InstalledPrinters
            Cb.Items.Add(prt)
        Next
        Using Pd As New Printing.PrintDocument()
            Cb.Text = Pd.PrinterSettings.PrinterName
        End Using
    End Sub
End Class