' Instantiate session and connect 
Dim my_session as new DtoSession 
Dim result as DtoResult 
result = my_session.Connect("myserver", "username", 
"password") 
' Get monitor object from session 
Dim my_monitor as DtoMonitor 
Set my_monitor = my_session.Monitor 
' Now get Mkde Clients from monitor 
Dim my_mkdeclients as DtoMkdeClients 
Set my_mkdeclients = my_monitor.MkdeClients 
' retrieve first client and get its client handles 
Dim first_client as DtoMkdeClient 
Dim my_clienthandles as DtoMkdeClientHandles 
Set first_client = my_mkdeclients(1) 
' to get all handles, use ClientHandles collection 
Set my_clienthandles = first_client.ClientHandles 
' determine number of members in the collection 
Dim num_clienthandles as Long 
num_clienthandles = my_clienthandles.Count