主题：外接设备端口问题

       Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(648, 358)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.btnIdentify)
        Me.Controls.Add(Me.btnVerify)
        Me.Controls.Add(Me.btnEnroll)
        Me.Controls.Add(Me.btnInit)
        Me.Controls.Add(Me.AxZKFPEngX1)
        Me.Name = "Form1"
        Me.Text = "U.R.U 4000 指纹仪测试程序"
        CType(Me.AxZKFPEngX1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub btnInit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInit.Click
        If AxZKFPEngX1.InitEngine = 0 Then
            MsgBox("初始化成功", MsgBoxStyle.OKOnly, "Information")
        Else
            MsgBox("初始化失败！", MsgBoxStyle.OKOnly, "Information")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxZKFPEngX1.EndEngine()
    End Sub

    Private Sub btnEnroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnroll.Click
        If TextBox1.Text = "" Then
            MsgBox("请先输入标识")
        Else
            AxZKFPEngX1.BeginEnroll()
        End If

    End Sub

    Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
        If AxZKFPEngX1.IsRegister Then AxZKFPEngX1.CancelEnroll()
        StatusBar1.Text = "开始比对"
        FMatchType = 1
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FID = 1
        fpcHandle = AxZKFPEngX1.CreateFPCacheDB()

    End Sub

    Private Sub btnIdentify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIdentify.Click
        If AxZKFPEngX1.IsRegister Then AxZKFPEngX1.CancelEnroll()
        StatusBar1.Text = "开始比对"
        FMatchType = 2
    End Sub