Visual Basic

System.Diagnostics.Process.Start("Shutdown", "-s -t 1")

Structure Ink<br />
Dim Weight As String<br />
Dim InkID As String<br />
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 />
<code>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)

<code>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