Visual Basic - Caja registradora

Hola. Resulta que estoy desarrollando un software para un minimercado y deseo saber como puedo abrir la gaveta de la caja registradora con Visual Basic 6.0.
Muchas gracias a aquella persoa que me pueda colaborar, pues además es mi proyecto de grado y debo terminarlo pronto.

Att: Camilo Hernández A.

Hola
Yo programe un sistema con la impresora srp-270 y para abrir el cajon me funciona este codigo:

EJEMPLO 1
Dim nFicSal As Integer, sLpt As String
nFicSal = FreeFile
sLpt = Printer.Port
Open sLpt For Output As nFicSal
Print #nFicSal, Chr(27) & Chr(112) & Chr(0)
Close nFicSal

Lo que no he conseguido es la forma de el sistema me indique cuando el cajón fue cerrado, pero te envio otro ejemplo.

EJEMPLO 2

Para usar Com1 debes usar el código:
En Componentes Selecciona: Microsoft Comm Control
'%WINROOT%\SYSTEM32\MSCOMM32.OCX
- Creas una instancia en tu formulario, luego en propiedades seleccionas el puerto de comunicaciones: (CommPort: 1)
- En el codigo colocas las siguientes instruciones:
MSComm1.PortOpen = True
MSComm1.Output = Chr(7) + Chr(0) + Chr(25) + Chr(250)
MSComm1.PortOpen = False

Espero que te sirva, pero puedes averiguar más del tema en MSDN, libros en pantalla. Saludos desde CHILE

FELIPE HENRIQUEZ