Dim File As String
Dim Anzahl As Byte
Dim Schleife As Byte
Dim temp As String
Dim temp2 As String
Dim Offset As Long
 
 
 
 
Private Sub cmdZeigen_Click()
  Open File For Binary As #1
  Offset = txtOffset.Text
  For Schleife = 0 To Anzahl
    Get #1, Offset + Schleife, temp
    txtHex.Text = temp
  Next
  Close #1
End Sub
 
 
 
Private Sub mnuAbout_Click()
  frmAbout.Show
End Sub
 
Private Sub mnuRomladen_Click()
  CommonDialog1.ShowOpen
  File = CommonDialog1.FileName
  If File = "" Then Exit Sub
End Sub
 
Private Sub txtAnzahl_Change()
  Anzahl = txtAnzahl.Text
End Sub
 
 
 
Private Sub txtOffset_Change()
  Offset = txtOffset.Text
End Sub