Visual Basic - Abrir gaveta de dinero mediante codigo

Quisiera saber si alguien puede darme el codigo o el link de la pagina en que aparesca el codigo para al momento de que un cliente paga y se emite la boleta, tambien se abra la gaveta...

Código para abrir el cajón o gaveta:

Comm1.PortOpen = True
For I = 1 To 1
Comm1.Output = Chr$(27) + Chr$(112) + Chr$(0)
Next I
Comm1.PortOpen = False

Otro código de un programa de TPV:
Chr$(27) + Chr$(112) + Chr$(0)+ Chr$(60)+ Chr$(240)
en este programa hay sólo este código para cajón, puede que sea universal..