Dim xsize As Long

Dim xtyp As Integer

If JRStegano1.GetFirstInfo(xtyp, xsize) = True Then

loop1:

  'get datas

  If xtyp = 1 Then

  'string

    List1.AddItem JRStegano1.gettext(xsize)

  End If

  If xtyp = 2 Then

  'Byte

  Dim xdatax() As Byte

  JRStegano1.getdata xdatax, xsize

  List1.AddItem StrConv(xdatax, vbUnicode)

  End If

  If xtyp = 3 Then

  'Filename

  filenamex$ = JRStegano1.GetFilename(xsize)

  List1.AddItem filenamex$

  End If

  If xtyp = 4 Then

  'filedata

  Dim xdata() As Byte

  If createfiles <> False Then

    'copy file to..

      JRStegano1.GetFile Trim$(Text2(1).Text) + filenamex$, xsize

  Else

    'Skip the data.

      JRStegano1.AddReadPointer xsize

  End If

  List1.AddItem Str$(UserDataSize) + "Byte von" + filenamex$

  End If

  'further data in this object.

  If JRStegano1.NextInfo(xtyp, xsize) = True Then GoTo loop1

End If