Mac PICT to Picture

With the help of Will’s link, I was able to manage to get the image:

[code]Dim result As String = “«data PICT037C0000000000100010001102FF0C00FFFE000000480000004800000001000100000…»”
result = result.Mid(11) // chop of starting «data PICT
result = result.Left(result.Len - 1) // chop of ending »
result = DecodeHex(result)

Dim header As String
For i As Integer = 1 To 512
header = header + Chr(0)
Next

Dim pic As Picture = Picture.FromData(header + result)[/code]