ABRIR GAVETA

colega primeiro vc terá de baixar a dll da gaveta (GHDL32.DLL) e poderá testar com este código

'DECLARACAO DAS FUNÇÕES DA GHDL32.DLL
'PARA INTERFACE COM A GAVETA MENNO MGI

Private Declare Function GavetaConfigura Lib "Ghdl32" (ByVal pulso As Integer, ByVal min As Integer) As Long
Private Declare Function DriverGaveta Lib "Ghdl32" (ByVal p As Integer, ByVal f As Integer) As Long

'Declaracao da variavel que indica a porta serial
Const serial As Integer = 1

'PUBLIC SERIAL := 1 // Porta 1

'Declaracao das variáveis para configuracao da GAVETA MENNO
Public m1, p1 As Integer

'Constantes de parametros da funcao DriverGaveta
Const GAVETA_INICIALIZA = 1
Const GAVETA_ABRE = 2
Const GAVETA_ESTADO = 3

Private Sub btn_aciona_Click()
Dim i, resp As Integer
DriverGaveta serial, GAVETA_ABRE
End Sub

Private Sub btn_sair_Click()
Unload Form_Principal
End
End Sub

Private Sub btn_status_Click()
Dim funcao As Integer
funcao = DriverGaveta(serial, GAVETA_ESTADO)

If funcao = 2 Then
Lbl_status.Caption = "Status da gaveta: ABERTA"
ElseIf funcao = 1 Then
Lbl_status.Caption = "Status da gaveta: FECHADA"
End If
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Option1_Click()
serial = 1
DriverGaveta serial, GAVETA_INICIALIZA
p1 = 150
m1 = 3500
GavetaConfigura p1, m1
Timer_Status.Enabled = True
End Sub

Private Sub Option2_Click()
serial = 2
DriverGaveta serial, GAVETA_INICIALIZA
p1 = 150
m1 = 3500
GavetaConfigura p1, m1
Timer_Status.Enabled = True
End Sub

Private Sub Option3_Click()
serial = 3
DriverGaveta serial, GAVETA_INICIALIZA
p1 = 150
m1 = 3500
GavetaConfigura p1, m1
Timer_Status.Enabled = True
End Sub

Private Sub Option4_Click()
serial = 4
DriverGaveta serial, GAVETA_INICIALIZA
p1 = 150
m1 = 3500
GavetaConfigura p1, m1
Timer_Status.Enabled = True
End Sub

Private Sub Timer_Status_Timer()
Dim funcao As Integer

funcao = DriverGaveta(serial, GAVETA_ESTADO)

If funcao = 2 Then
Lbl_status.Caption = "Status da gaveta: ABERTA"
ElseIf funcao = 1 Then
Lbl_status.Caption = "Status da gaveta: FECHADA"
End If
End Sub

ps: código retirado da net, eu não testei