Visual Basic - Apertura de cajón TPV

Cómo puedo envíar la secuencia de caracteres a través del puerto paralelo de mi impresora de ticket para forzar la apertura del cajón TPV conectado a ésta.

En Qbasic lo hago con LPRINT chr(27);chr(112);chr(0);chr(10);chr(10)

Lo he intentado en VB con Printer.Print pero no funciona (me imagino que es porque este comando dibuja los caracteres)

Necesito una solución en VB o API Windows

Gracias

Esta es otra forma de hacerlo equivalente a LPRINT

Open "LPT1:" For Output As #1
Print #1, Chr$(27) & Chr$(112) & Chr$(0) & Chr$(10) & Chr$(10)
Close #1