Visual Basic - enviar comandos escape a impresora ticket por usb

Buenas tardes , Alguien me podria poner un ejemplo de envio de comandos de escape , tengo que abrir un cajon portamonedas y lo que hago es imprimir una linea de caracteres asccii ,

Lo intento asi

Private Sub SimpleButton16_Click(sender As Object, e As EventArgs) Handles SimpleButton16.Click

Dim cajon As New PrintDocument
Dim prtSettings As New PrinterSettings
If prtSettings Is Nothing Then
prtSettings = New PrinterSettings
End If
prtSettings.PrinterName = My.Settings.impventa
cajon.PrinterSettings = prtSettings
' asignamos el método de evento para cada página a imprimir
AddHandler cajon.PrintPage, AddressOf cajon_printpage
' indicamos que queremos imprimir
cajon.Print()
End Sub

Private Sub cajon_printpage(ByVal sender As Object, ByVal e As PrintPageEventArgs)

Dim escape As String = Chr(27) + Chr(112) + Chr(0) + Chr(100) + Chr(200)


Dim prFont As New Font("Arial", 9, FontStyle.Regular)
e.Graphics.DrawString(escape, prFont, Brushes.Black, 0, 0)


e.HasMorePages = False
End Sub

Se que se puede pero no se como, agradecere cualquier ayuda , muchas gracias.

En visual Basic 6.0 lo hacia asi
la impresora compartida, en mi maquina y luego la invocabas asi.

Mira si puedes hacer esto


cajon.Print( Chr(27) + Chr(112) + Chr(0) + Chr(100) + Chr(200))

Resuelto , un compañero ha publicado una clase llamada RawPrinterHelper
es de dominio publico y funciona perfectamente lo he conseguido , aunque cargo un poco con esta clase solo para eso pero va muy bien.
Espero que cualquiera que le haga falta le paso el codigo fuente , aunque buscandolo en la web se pueede bajar sin problemas
Gracias por el interés.