Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type MyType
- First as long
- B as string
- end type
- dim as MyType tArray(5), tBlank
- tBlank.First = -1 : tBlank.B = "Blank"
- with tArray(0)
- *cptr( MyType ptr , @.First ) = tBlank 'setting the "with" element
- print .First
- print .B
- end with
- sleep
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement