Visual Basic

 Structure Ink<br />
        <VBFixedString(5)> Dim Weight As String<br />
        <VBFixedString(10)> Dim InkID As String<br />
        <VBFixedString(30)> Dim InkName As String<br />
    End Structure<br />
    Private Function FindLastRecordNo() As Integer<br />
        Dim Temp As Ink<br />
        FileNumber = FreeFile()<br />
        FileOpen(FileNumber, "c:\inklist.txt", OpenMode.Random, OpenAccess.Read, , Len(Temp))<br />
        FindLastRecordNo = 1<br />
        Do While Not EOF(FileNumber)<br />
            FileGet(FileNumber, Temp, )<br />
            FindLastRecordNo = FindLastRecordNo + 1<br />
        Loop<br />
        FileClose(FileNumber)<br />
    End Function<br />
<br />
I have no problem with this event :)<br />
<br />
 Private Sub btnOpenList_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpenList.Click<br />
        Dim MyInk As Ink, Count As Integer, Temp As String<br />
        Dim MyLine, MySubString As String, LineWidth As Integer = 60<br />
        FileNumber = FreeFile()<br />
        FileOpen(FileNumber, "c:\inklist.txt", OpenMode.Random, , , Len(MyInk))<br />
        Count = 1<br />
        lstInk.Items.Clear()<br />
        Do While Not EOF(FileNumber)<br />
            FileGet(FileNumber, MyInk, Count)<br />
            Temp = MyInk.InkID + MyInk.InkName + MyInk.Weight<br />
            lstInk.Items.Add(Temp)<br />
            Count = Count + 1<br />
        Loop<br />
        FileClose(FileNumber)<br />
    End Sub<br />
<br />
but i have problem with find click event it's not showing any thing in textbox :confused:<br />
<br />
    Private Sub btnFind_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFind.Click<br />
        Dim MyInk As Ink<br />
        FileNumber = FreeFile()<br />
        FileOpen(FileNumber, "c:\inklist.txt", OpenMode.Random, , , Len(MyInk))<br />
        Do While Not EOF(FileNumber)<br />
            FileGet(FileNumber, MyInk, )<br />
            If MyInk.InkID = txtID.Text Then<br />
                Position = Loc(FileNumber)<br />
                txtIName.Text = MyInk.InkName  this is the problem:confused:<br />
                txtIWeight.Text = MyInk.Weight   this is the problem :confused:<br />
                Exit Do<br />
            End If<br />
        Loop<br />
        FileClose(FileNumber)<br />
    End Sub