#Include "crt.bi" Type foo x As Integer y As Single End Type Dim As foo bar bar.x = 5 bar.y = 7.77 '################## Dim As String sendeString = String(SizeOf(foo), Chr(0)) memcpy(StrPtr(sendeString), @bar, SizeOf(foo)) Print sendeString '################## Dim As foo baz memcpy(@baz, StrPtr(sendeString), SizeOf(foo)) Print baz.x, baz.y Sleep