VERSION 5.00
Object = "{30BDCD3D-FF71-46DD-931F-0C85D2FD6BFE}#5.0#0"; "Scaner1C.dll"
Begin VB.Form frmMain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "     -"
   ClientHeight    =   1125
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   5025
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1125
   ScaleWidth      =   5025
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin Scaner.Scaner45 Scaner 
      Left            =   0
      Top             =   0
      CurrentDeviceIndex=   0
      CurrentDeviceNumber=   1
      CurrentDeviceName=   "COM1"
      ApplicationHandle=   0
      PortNumber      =   1
      BaudRate        =   7
      Parity          =   0
      DataBits        =   4
      StopBits        =   2
      StopFlag        =   2
      LockDevices     =   0
      DeviceEnabled   =   -1  'True
      Model           =   0
      AutoDisable     =   0   'False
      DataEventEnabled=   -1  'True
      EventNumber     =   0
      OldVersion      =   0   'False
      ApplicationTitle=   "vb6"
      RaiseException  =   -1  'True
      Sensitive       =   30
      Prefix          =   ""
      Suffix          =   ""
   End
   Begin VB.CommandButton btnShowProperties 
      Caption         =   " "
      Height          =   615
      Left            =   1080
      TabIndex        =   0
      Top             =   240
      Width           =   2895
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub btnShowProperties_Click()
    A = Scaner.ShowProperties
End Sub

Private Sub Form_Load()
    Scaner.DeviceEnabled = True
    Scaner.AutoDisable = True
    Scaner.DataEventEnabled = True
End Sub

Private Sub Scaner_DataEvent()
    StringData = "" + Format(Scaner.EventNumber) + Chr(10) + Chr(13) + Scaner.ScanData + Chr(10) + Chr(13) + Scaner.PortDescription
    A = MsgBox(StringData, vbOKOnly, "  ", 0, 0)
    Scaner.DataEventEnabled = True
End Sub
