Declare Function DeleteMonitor Lib "winspool.drv" Alias "DeleteMonitorA" _
    (ByVal pName As String, ByVal pEnvironment As String, ByVal pMonitorName As String) As Long
Declare Function AddMonitor Lib "winspool.drv" Alias "AddMonitorA" _
(ByVal pName As String, ByVal Level As Long, pMonitors As Byte) As Long
Private Declare Function AddPort Lib "winspool.drv" _
   Alias "AddPortA" _
  (ByVal pName As String, _
   ByVal hwnd As Long, _
   ByVal pMonitorName As String) As Long

Private Declare Function DeletePort Lib "winspool.drv" _
   Alias "DeletePortA" _
  (ByVal pName As String, _
   ByVal hwnd As Long, _
   ByVal pPortName As String) As Long
 
Private Declare Function AddPortEx Lib "winspool.drv" _
   Alias "AddPortExA" _
  (ByVal pName As String, _
   ByVal pLevel As Long, _
   lpBuffer As Any, _
   ByVal pMonitorName As String) As Long

Private Type MONITOR_INFO_2
 pName As String
 pEnvironment As String
 pDLLName As String
End Type
Public Enum eInstall
 Install =  0 
 unInstall =  1 
End Enum
Public Declare Function DeleteMonitor Lib "winspool.drv" Alias "DeleteMonitorA" _
    (ByVal pName As String, ByVal pEnvironment As String, ByVal pMonitorName As String) As Long
Public Declare Function AddMonitor Lib "winspool.drv" Alias "AddMonitorA" _
(ByVal pName As String, ByVal Level As Long, pMonitors As Any) As Long
'-------------
Public Function PrinterMonitor(InstallTyp As eInstall) As Long
    Dim res As Long, Monitor2 As MONITOR_INFO_2, tStr As String
    Select Case InstallTyp
        Case  0 : ' Install
            With Monitor2
                .pName = "MyNew Monitor" & Chr$( 0 )
                .pEnvironment = "" & Chr$( 0 )
                .pDLLName = "MyNewMonitor.dll" & Chr$( 0 )
            End With
            res = AddMonitor(vbNullString,  2 , Monitor2)
            PrinterMonitor = res
            Exit Function
        Case  1 : ' UnInstall
            res = DeleteMonitor(vbNullString, vbNullString, "MyNew Monitor" & vbNullString)
            PrinterMonitor = res
            Exit Function
        End Select
End Function
'-----------------------
Private Sub Command1_Click()
    MsgBox PrinterMonitor(unInstall)
End Sub
Private Sub Command2_Click()
    MsgBox PrinterMonitor(Install)
End Sub

rundll32 printui.dll,PrintUIEntry /if /b "MyNewPrinter" /f MyprinterDriver.inf /r "MyPort:" /m "MyPrinter" /u