Will you help me with this please?
This is the source code:
Code: Select all
'Define Type
Type USERS
Field name As String
EndType
'Create five instances
us.USERS = New(USERS)
us\name= "John"
us.USERS = New(USERS)
us\name= "Michael"
us.USERS = New(USERS)
us\name= "Peter"
us.USERS = New(USERS)
us\name= "Jason"
us.USERS = New(USERS)
us\name= "Charlie"
'Read information of instances
For us = Each USERS
Print us\name
Next us
'Press any key
WaitKey
'Empty space
Print " "
'Create new instance and insert in second position
us.USERS = New(USERS)
us\name= "Ralph"
Insert us, After(First(USERS))
'Read information of instances with new change
For us = Each USERS
Print us\name
Next us
'Press any key to exit program
WaitKey
Thanks for your help friends