Abrir caja de dinero...

Matador81
30 de Noviembre del 2004
Hola a todos y todas de este foro.

Necesito un programa o algo que me ayude a hacer un programa para abrir una caja de dinero, que se conecta por el puerto del mouse (com1). Que sea en Visual Basic 6.0.
Lo que necesito es para montar una caja de dinero con una computadora para que me haga la funcion de una caja registradora que es parte de mi tesis y mas adelante sera para un negocio y me puedes permitir el codigo en Visual Basic 6.0. Mira yo tengo este codigo pero me dice que ya el puerto esta abierto y no me lo abre:

Private Sub Abrir_Click() (Este es un command button)
MSComm1.CommPort = 1
MSComm1.Settings = "19200,n,8,1" MSComm1.InputMode = comInputModeBinary
MSComm1.RThreshold = 5
MSComm1.PortOpen = True
End Sub

Tambien para conectar un lector de codigo de barras que se conecta por el puerto del teclado.

Bueno espero que me puedan ayudar ya que de esto depende mi tesis