Sub Process_Globals
Private USBD As SMMFingerPrint
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim btnConnect As Button
btnConnect.Initialize("btnConnect")
btnConnect.Text = "Connect"
Activity.AddView(btnConnect, 10dip, 10dip, 100dip, 100dip)
USBD.Initialize("USBD")
End Sub
Sub btnConnect_Click
ToastMessageShow(USBD.OpenDevice, True)
'USBD.OpenDevice
End Sub