I need to retrieve periods for a workgroup (BOC). Example VBA

Hi

My Name is Luis Alberto Miranda, I´m Chilean, I work with BOC/Bussiness Object Connector (mimsx.dll).

I need to retrieve information about WORKGROUP.

For example: I’m write a visual basic program use class workgroup

Dim MiBlock, Block As MIMSBlock
Dim MiReply As MIMSReply
Dim MiField As MIMSField
Dim MiRequest As MIMSRequest
Dim MiInstance As MIMSInstance

'Allows a connection to MIMS
MIMS_Connect

'Select Periods for WORKGROUP "WorkGroup1"
Block.Requests("Request&quot.AddFieldNameValue MIMSX_FLAG_SERVICE, "WORKGROUP.RetrieveWorkGroupPeriods"

Block.Requests("Request&quot.AddFieldNameValue MIMSX_FLAG_REPLYLIST, "WGPeriods,WGPeriodsActualCount,WGPeriodsRestart"

Block.Requests("Request&quot.Instances("Instance&quot.AddFieldNameValue "WorkGroup", "WORKGROUP1"

Set Reply = Block.Send

For Each Request In aobjReply.Requests
For Each Instance In Request.Instances

lstper.AddItem Instance.Fields.Item(1).ValueAsDate

Next
Next

The program load the list (lstper): 17/01/2002 (just the first period).

What can i do for load all the periods?.

the object "Instance.Fields.Item(1)" contain all the periods, but i don't know how show all the periods.

How do you get each period from the objects "Instance.Fields.Item" ?

If you have any comment, let me know, please
beto_miranda@hotmail.com

Regards