Dim buffer(512) As Byte
Dim akt_sektor As Integer
 
Private Sub Command1_Click()
GetDriveHandle "e:"
End Sub
 
Private Sub Command2_Click()
CloseDriveHandle
End
End Sub
 
Private Sub Command3_Click()
akt_sektor = akt_sektor + 1
List1.Clear
Dim i As Integer
ReadSectorFromDrive buffer()
sektor_anzeigen
End Sub
 
 
Private Sub Command4_Click()
Dim i As Integer
For i = 1 To 10
  ReadSectorFromDrive buffer()
  akt_sektor = akt_sektor + 1
Next i
sektor_anzeigen
End Sub
 
Private Sub Command5_Click()
Dim i As Integer
Dim j As Integer
For i = 0 To 1000
  ReadSectorFromDrive buffer()
  akt_sektor = akt_sektor + 1
  If buffer(0) = 60 Then
    sektor_anzeigen
    Exit Sub
  End If
Next i
End Sub
 
Sub sektor_anzeigen()
Dim i As Integer
List1.Clear
For i = 0 To 511
    List1.AddItem (Hex(buffer(i)))
Next i
Text1.Text = akt_sektor
End Sub
 
Private Sub Form_Load()
akt_sektor = -1
End Sub