Samozřejmě to možné je a struktury právě pro takovou efektivní práci s daty (na úrovni bajtů) určeny jsou.
Imports System, System.IO, System.Windo ws.Forms, Microsoft.VisualBasic
Module MTest
Structure Zamestanec
<VBFixedString(20)> Public Jmeno$, ID%
Sub New(ByVal ID%)
Dim s$ = "", R As New Random, i%
For i = 1 To 20 : s$ &= Convert.ToChar(R.Next(65, 90)) : Next
Me.ID = ID : Me.Jmeno = s$
End Sub
End Structure
Dim WithEvents HSB As New HScrollBar, F As New Form, TB1 As New TextBox, TB2 As New TextBox
Sub Main()
Const N% = 1000
FileOpen(1, "C:\Platby.dat", 4, 3)
For i As Integer = 0 To 1000
FilePut(1,& nbsp;New Zamestanec(i), i + 1)
Next
HSB.Dock = Dock style.Top : HSB.Maximum&nbs p;= N
TB1.Top = 25 : TB2.Top = 25 : TB2.Left = 150
F.Controls.AddRange(New Control() {HSB, TB1, TB2})
F.ShowDialog()
FileClose(1)
End Sub
Sub Scroll(ByVal S As Object, ByVal SEA As ScrollEventArgs) Handles HSB.Scroll
Dim Z As Zamestanec : F.Text = SEA.NewValue + 1
FileGet(1, Z,  ;SEA.NewValue + 1)
TB1.Text = Z.ID : TB2.Text = Z.Jmeno
End Sub
End Module