Imports System.Management
        
Dim query As ManagementObjectSearcher
        Dim queryCollection As ManagementObjectCollection
        Dim _classname As String = "SELECT * FROM Win32_Printer"
        Dim mo_def As ManagementObject

        query = New ManagementObjectSearcher(_classname)
        queryCollection = query.Get()
        For Each mo As ManagementObject In queryCollection
            If String.Compare(mo("Name").ToString(), "Fax") = 0 Then
                mo.InvokeMethod("SetDefaultPrinter", Nothing)
                mo_def = mo
                Exit For
            End If
        Next