'Dim name As String
'Dim fname As String
'Dim paddress As String
'Dim dob As String
'Dim pob As String
'Dim nid As String
Private Sub scanbtn_Click()
'Stage.CmdOpen_Click
'Stage.CmdStart_Click
'Stage.CmdClose_Click
'ShellAndWait "..\bin\readbmp.exe f0000_14\f0000_14.bmp f0000_14\f0000_14.pct", 6
'ShellAndWait "..\bin\hsfsys2.exe -ud -c nodict hsfsys2.lis", 6
'Debug.Print """c:\program files\iread\bin\readforms.exe"" ""c:\program files\iread"" ""c:\program files\iread\templates\image-0.tif"" ""c:\image-0.tif"" > ""c:\ireadout.txt"""
'ShellAndWait """c:\program files\iread\bin\readforms.exe"" ""c:\program files\iread"" ""c:\program files\iread\templates\image-0.tif"" ""c:\image-0.tif"" > ""ireadout.txt"""
'SendKeys (a)
ShellAndWait "a.bat"

'On Error Resume Next
Dim i As String
Dim j As String
'Pause 1000
FileNumber = FreeFile
Open "C:\Program Files\iREAD\bin\a.txt" For Input As #FileNumber
'Open "C:\cygwin\usr\local\hsfsys2\data\f0000_14\f0000_14.hyp" For Input As #1
Line Input #FileNumber, i
Line Input #FileNumber, j
'a = Split(i, vbCrLf)

MsgBox i + "fff"
MsgBox j
Text1(0).Text = "Monzurul Karim Khan "
Text1(1).Text = "Rezaul Karim Khan"
Text1(2).Text = "Dhaka"
Text1(3).Text = "Service"
'Text1(4).Text = "1"
'Text1(5).Text = "50"
'Text1(6).Text = "Brown"
'Text1(7).Text = "Black"
'Text1(8).Text = "02"
'Text1(9).Text = "08"
'Text1(10).Text = "1980"
'Text1(11).Text = "Bangladesh"


'Text1(0).Text = b0(1) + " " + b1(1)
'Text1(1).Text = b2(1) + " " + b3(1)
'Text1(2).Text = b4(1) + " " + " " + b6(1) + " " + b7(1) + " " + b8(1) + " " + b9(1)
'Text1(3).Text = b10(1)
'Text1(4).Text = b11(1)
'Text1(5).Text = b12(1)
'Text1(6).Text = b13(1)
'Text1(7).Text = b14(1)
'Text1(8).Text = b15(1)
'Text1(9).Text = b16(1)
'Text1(10).Text = b17(1)
'Text1(11).Text = b19(1)
'Text1(12).Text = b20(1)
Close #FileNumber

On Error GoTo 0
'Unload Stage
End Sub