Visual Basic para Aplicaciones - Como abrir cajas de dinero de un punto de venta

como puedo abrir una caja de dinero de un punto de venta

todo depende en donde tengas conectado el cajon de dinero hay algunos que se conectan a las miniprinters debes de checarlo por que hay driver que ya la abren.

sino te mando este codigo del puerto lpt1

public sub cajon()
'para abrir el cajon
open "LPT1:" for output as #1
'la seceuncia de escape puede ser otra para tu impresora consulta el manual

print#1, chr$(27)+ chr$(112)+chr$(0)+chr$(48)
close#1
end sub

ok saludos espero te sirva