Visual Basic para Aplicaciones - Código para caja de dinero

Tengo un programa de facturación y le he añadido una caja de dinero. La caja está conectada a la impresora de punto de venta y la impresora está conectada a la CPU en el puerto serial.

Necesito que cada vez que se imprima una factura, el programa envie una señal eléctrica para que la caja se abra automáticamente, sin necesidad de usar la llave.

El manual de la caja me da dos formas de hacerlo pero en el lenguaje QBASIC, las cuales son:

Forma 1:
PRINTER
#1,CHR$(&H1B);"P";CHR$(0);CHR$(100);CHR$(250);

Forma 2:
OPEN "COM1:96,N,8,1"
FOR RANDOM AS #1
PRINT #1, "0000000000"

Lo que yo necesito es saber en visual basic cual es el comando y el control equivalente para hacer ésto y como serían las respectivas lineas, sobre todo me interesa la forma 1.

Muchas gracias por la ayuda.

Hola

Hace algunos anos tube que hacer un programa que hacia eso y pues pensaba que para abrir la caja registradora era algo complicado pero no.

Lo que hice en esa ocacion fue usar el contro MSComm.
Lo agregas a tu formulario desde el menu Proyecto->Componentes en esa ventana buscas el que se llama Microsoft Comm Control 6.0

y colocas este codigo en donde quieras que se abra la caja

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "1"
MSComm1.PortOpen = False

La caja registradora para la que tube que adaptar el programa simplemene tenia que recibir un caracter cualquiera para que se abriera.

Asi que como vemos en el codigo
Primero se abre el puerto com1 (Debes tener en cuenta si ese es el puerto que estas usando)
Segundo se configuran algunos parametros para la conexion
Tercero abrimos el puerto
Cuarto envias un dato por el puerto e este caso 1
y por ultimo cerramos el puerto


Otra cosilla la segunda forma que tu muestras deberia servir tambien en VB 6.0 sino pureba lo que te dije

Saludos
http://www.theemulator.tk