DHES

Hi
Need Help fixing the code.

Private Sub Exit_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Open_Click()
Call CashDrawer
End Sub
Private Sub Print_Click()
Printer.Print "Hello"
Printer.Print Chr$(27); Chr$(112); Chr$(0); Chr$(25); Chr$(250);
Printer.EndDoc
End Sub
Private Sub Editprinter_Click()
Open "lpt1" For Output As #1
A = InputBox("Enter Then Printrt Codes", "Printer Code")
B = InputBox("Enter Then Printrt Codes", "Printer Code")
C = InputBox("Enter Then Printrt Codes", "Printer Code")
D = InputBox("Enter Then Printrt Codes", "Printer Code")
E = InputBox("Enter Then Printrt Codes", "Printer Code")
Print #1, Chr$(A); Chr$(B); Chr$(C); Chr$(D); Chr$(E)
Close #1
End Sub
Private Sub CashDrawer()
' OPEN LPT1 FOR OUTPUT
'Open "lpt1" For Output As #1
Open Printer.Port For Output As #1
' POP CASH DRAWER
' CMD:
Printer.Print Chr$(27); Chr$(112); Chr$(0); Chr$(25); Chr$(250)
'Print #1, Chr$(A); Chr$(B); Chr$(C); Chr$(D); Chr$(E)
Printer.Print "The Cash Drawer Was Open By"
Printer.EndDoc
'Print #1, Chr$(27); Chr$(112); Chr$(0); Chr$(25); Chr$(250)
' CLOSE THE LPT1 PORT
Close #1
End Sub

and I need to get the code to get key code in vb?

Thank You!!!

P.S. God Loves You And Have A Good Day!!!