VERSION 5.00
Object = "{EA44C4CA-EE86-4744-8E3A-57DBF72764D4}#1.0#0"; "BFLexOcx.dll"
Begin VB.MDIForm MDIFrm 
   BackColor       =   &H8000000C&
   Caption         =   "D801X Demo"
   ClientHeight    =   5625
   ClientLeft      =   225
   ClientTop       =   825
   ClientWidth     =   7515
   LinkTopic       =   "D801x Demo "
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox PicBack 
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   10710
      Left            =   0
      Negotiate       =   -1  'True
      ScaleHeight     =   10680
      ScaleWidth      =   7485
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   7515
      Begin BFLEXOCXLibCtl.BFLex BFLex1 
         Height          =   570
         Left            =   0
         OleObjectBlob   =   "MDIFrm.frx":0000
         TabIndex        =   1
         Top             =   0
         Visible         =   0   'False
         Width           =   570
      End
   End
   Begin VB.Menu M_File 
      Caption         =   "File"
      Begin VB.Menu M_Exit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu M_ConnectDevice 
      Caption         =   "Connect Device"
      Index           =   1
      Begin VB.Menu M_SerialDevice 
         Caption         =   "Serial Device"
         Index           =   2
      End
      Begin VB.Menu M_NetDevice 
         Caption         =   "Net Device"
         Index           =   2
      End
      Begin VB.Menu M_DisConnect 
         Caption         =   "DisConnect"
      End
   End
   Begin VB.Menu M_ManagementGropt 
      Caption         =   "Management Groupt"
      Begin VB.Menu M_EnrollData 
         Caption         =   "Enroll Data Management"
      End
      Begin VB.Menu M_LogData 
         Caption         =   "Log Data Management"
      End
      Begin VB.Menu M_SystemInfo 
         Caption         =   "System Info Management"
      End
   End
End
Attribute VB_Name = "MDIFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub M_DisConnect_Click()
    Select Case BFLex1.ConnectStatus
    Case BFLex_NetConnect:
        BFLex1.CloseNet
    Case BFLex_SerialConnect:
        BFLex1.CloseCom
    End Select
End Sub

Private Sub M_EnrollData_Click()
    Load FrmEnrollData
    FrmEnrollData.ZOrder 0
    FrmEnrollData.Show
End Sub

Private Sub M_Exit_Click()
    Unload Me
End Sub

Private Sub M_LogData_Click()
    Load FrmLogData
    FrmLogData.ZOrder 0
    FrmLogData.Show
End Sub

Private Sub M_NetDevice_Click(Index As Integer)
    FrmSetNet.Show 1
End Sub

Private Sub M_SerialDevice_Click(Index As Integer)
    FrmSetSerial.Show 1
End Sub



Private Sub M_SystemInfo_Click()
    Load FrmDeviceInfo
    FrmDeviceInfo.ZOrder 0
    FrmDeviceInfo.Show
End Sub

Private Sub MDIForm_Load()
    DeviceNumber = 1
End Sub

Private Sub MDIForm_Resize()
   PicBack.Height = Me.Height
    
End Sub

