VBGamer

Maybe you can do the same: <PRE> Type MyType x as single y as single z as single OtherStuff as Long End type Dim MT as MyType Sub SendPack() Dim TempString as String TempString = Space(lenb(MT)) CopyMemory TempString, MT, Lenb(MT) Send TempString End Sub Sub GetPack() Dim TempString as String TempString = Space(lenb(MT)) recive TempString CopyMemory MT, TempString, Len(TempString) End Sub That should work, maybe...