VS 2019 Add printer in windows 10 problem

• Im having problems with adding printer's in windows 10
• After adding the port, the program just crash
• The code im using works very well in windows 7
• Can anybody help? Thanks

'SETS LOAD DRIVERS PRIVILEGE.
Dim strComputer As String
Dim objWMIService As Object
strComputer = "."
objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

'SETS PRINTER PORT
Dim objNewPort = objWMIService.get("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "10.71.197.217"
objNewPort.Protocol = 1
objNewPort.HostAddress = "10.71.197.217"
objNewPort.PortNumber = 9100
objNewPort.SNMPEnabled = False
objNewPort.Put_

'INSTALL DRIVERS
Dim objDriver = objWMIService.Get("Win32_PrinterDriver")
objWMIService.Security_.Privileges.AddAsString("SeLoadDriverPrivilege", True)
objDriver.Name = "Canon iR2520 UFRII LT"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
objDriver.FilePath = "$(ProjectDir)..\..\Drivers\Canon\Canon IR2520\x64\Driver"
objDriver.Infname = "CNLB0MA64.INF"
Dim intResult = objDriver.AddPrinterDriver(objDriver)

'SETS PRINTER TO THE PORT
Dim objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objPrinter.DriverName = "Canon iR2520 UFRII LT"
objPrinter.PortName = "10.71.197.217"
objPrinter.DeviceID = "Canon 2520 test UFRII W10"
objPrinter.Location = "TTEST W10"
objPrinter.Default = 1
objPrinter.Network = True
objPrinter.Shared = False
objPrinter.Put_