<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Structure Test
 
	<MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=12)> _
	 Dim Text1 As String		  '0
	<MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=80)> _
	 Dim Text2 As String		  '12
	<MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=80)> _
	 Dim Text3 As String		  '92
 
End Structure

Private Sub btnStruc_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnStruc.Click
	Dim s As New Test
	s.Text1 = "012345678901"
	s.Text2 = _
  "012345678901234567890123456789012345678901234567890123456789012345678901234" & _
  "6789"
	s.Text3 = _
"01234567890123456789012345678901234567890123456789012345678901234567890123456" & _
"89"
	Dim Send() As Byte
	Send = RawSerialize(s)
End Sub
 
Public Shared Function RawSerialize(ByVal anything As Object) As Byte()
	Dim rawsize As Integer = Marshal.SizeOf(anything)
	Dim buffer As IntPtr = Marshal.AllocHGlobal(rawsize)
	Marshal.StructureToPtr(anything, buffer, False)
	Dim rawdatas(rawsize - 1) As Byte
	Marshal.Copy(buffer, rawdatas, 0, rawsize)
	Marshal.FreeHGlobal(buffer)
	Return rawdatas
End Function