Private Function GetInstalledPrinters() As List(Of ManagementObject)
        Try
            Dim moc As System.Management.ManagementObjectCollection
            Dim mos As ManagementObjectSearcher
            Dim molst As New List(Of ManagementObject)
            mos = New Management.ManagementObjectSearcher("Select * from" & _
              "Win32_Printer")
            moc = mos.Get
            For Each mo As ManagementObject In moc
                molst.Add(mo) 
                Dim props As PropertyDataCollection = mo.Properties
                For Each prop As PropertyData In props
                    If prop IsNot Nothing AndAlso prop.Value IsNot Nothing Then
                        Console.WriteLine(prop.Name & ": " & _
                          prop.Value.ToString)
                    End If
                Next prop
                Console.WriteLine(vbNewLine & "=====================" & _
                  vbNewLine)
            Next mo
            Return molst
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Info")
            Return Nothing
        End Try
    End Function