overførelse af byte

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
                    hpvDest As Any, _
                    hpvSource As Any, _
                    ByVal cbCopy As Long)

Private Sub Form_Load()
Dim i As Integer
Dim strText As String
Dim arr201Byte(0 To 200) As Byte
Dim arr4Byte(1 To 4) As Byte

  'her fylder vi lige noget i de 201 byte
  For i = 0 To 200
    arr201Byte(i) = i
  Next

  'her kopier vi fra de 201 byte fra nr 65 til 68 (A,B,C,D)
  CopyMemory arr4Byte(1), arr201Byte(65), 4 '<-- 4 byte

  'her tilføjer vi de 4 byte i en string så vi kan se et resultat
  For i = 1 To 4
    strText = strText & Chr(arr4Byte(i))
  Next

  'her viser vi det.
  Me.Caption = strText
End Sub
'----------------------------- Form1 -----------------------------

Mange tak sjh

selv tak :-)