Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load brwsList.Navigate(\\print-server) ' brwsList is used as File Explorer. ListLocalPrinters() End Sub Private Sub ListLocalPrinters() Try Dim searcher As New ManagementObjectSearcher("root\CIMV2", _ "SELECT * FROM Win32_Printer Where Local = FALSE") lstPrtrToDelete.Items.Clear() For Each queryObj As ManagementObject In searcher.Get() lstPrtrToDelete.Items.Add(queryObj("DeviceID")) Next lstPrtrToDelete.View = View.List Catch err As ManagementException MessageBox.Show("An error occurred while querying for WMI data: " & err.Message) End Try End Sub