Adding a remote printer using PrintUI.dll

Dim MyProcess As New Process
Dim MyStartInfo As New ProcessStartInfo

With MyStartInfo
 .Arguments = _
   "printui.dll,PrintUIEntry /in /n\\<computer name>\<print share name> /j""LanMan Print Services"""
 .CreateNoWindow = True
 .FileName = "rundll32.exe"
End With

With MyProcess
 .StartInfo = MyStartInfo
 .Start()
 .WaitForExit()
End With