Private Sub Form_Load() For i = 0 To Printers.Count - 1 Combo1.AddItem Printers(i).DeviceName, i Next i Combo1.Text = Printer.DeviceName End Sub