object.CreateControl2( _
   ByVal controlTypeGuid As String _
) As Object

Parameters

controlTypeGuid

See the table in the remarks for Guids to use for each type of control.

1) 32 contiguous digits

2) Hyphenated groups of 8, 4, 4, 4, and 12 digits (in that order)

3) Groups of 8, 4, and 4 digits, with a subset of eight groups of 2 digits (in that order).

For example (where "d" is a hexidecimal digit whose case is ignored):

{0xdddddddd,0xdddd, 0xdddd,{0xdd,0xdd,0xdd,0xdd,0xdd,0xdd,0xdd,0xdd}}

For the third format, each group must be prefixed by "0x" or "0X" and separated by commas, and both the subset and entire GUID must be enclosed in braces (embedded spaces and leading zeroes in a group are ignored).

The digits shown in a group are the maximum number of meaningful digits that can appear in that group. You can specify from 1 to the number of digits shown for a group. The specified digits are assumed to be the low order digits of the group.

Use the following GUIDs

This sample shows how to use the CreateControl2 method to create a new terminal control and then connect the terminal to a host.

Sub CreateInfoConnectIBMSession()
    'Declare application, terminal, and view object variables:
    Dim app As Attachmate_Reflection_Objects_Framework.ApplicationObject
    Dim terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminal
    Dim view As Attachmate_Reflection_Objects.view
     
    'Get a handle to the workspace
    Set app = GetObject("%%productName%% Workspace")
                 
    'Create an Ibm3270 control and set the host address
    Set terminal = app.CreateControl2("{09E5A1B4-0BA6-4546-A27D-FE4762B7ACE1}")
    terminal.HostAddress = "demo:ibm3270.sim"
    terminal.port = "623"
   
    'For an Ibm5250 control, use the following Guid:
    'Set terminal = app.CreateControl2("{AF03A446-F278-4624-B9EF-C896DF2CA1CA}" )
   
    'Create a view to display the session
    Set view = ThisFrame.CreateView(terminal)
   
End Sub

Sub CreateInfoConnectOpenSystemsSession()
    'Declare application, terminal, and view object variables:
    Dim app As Attachmate_InfoConnect_Objects_Framework.ApplicationObject
    Dim terminal As Attachmate_InfoConnect_Objects_Emulation_OpenSystems.Terminal
    Dim view As Attachmate_InfoConnect_Objects.View
     
    'Get a handle to the workspace
    Set app = GetObject("%%productName%% Workspace")
                 
    'Create an Open Systems control and set the host address
    Set terminal = app.CreateControl2("{BE835A80-CAB2-40d2-AFC0-6848E486BF58}")
    terminal.ConnectionSettingsTelnet.HostAddress = "yourHostName"
   
    'Create a view to display the session
    Set view = ThisFrame.CreateView(terminal)
   
End Sub

Reference

ApplicationObject Object
ApplicationObject Members

Quickstart

Dynamically Create A Session
Create a Session From a Microsoft Excel Macro