The EPI COM class provides the names and descriptions of CICS® servers configured in the Gateway initialization file.
Sub EPIServers_Click()
Dim I
'Instantiate CICS EPI object
Set EPI = New CclOEPI
'List CICS server information
For I = 1 To EPI.ServerCount
List1.AddItem EPI.ServerName(I)
List1.AddItem EPI.ServerDesc(I)
Next