Example

This example uses Automation to create a new Reflection for IBM session. The Visible property is used to make the new session visible. The Quit method is used to close the new session.

Sub CreateNewReflectionSession ()

 'Declare the Reflection object

 Dim ReflectionSession As Reflection.Session

 'Create a new instance of Reflection for IBM and

 'assign this object to the ReflectionSession object variable.

 Set ReflectionSession = CreateObject("ReflectionIBM.Session")

 'Make Reflection visible

 ReflectionSession.Visible = True

 'Do something with the Reflection session.

 'In this case, display the About box.

 ReflectionSession.AboutReflectionDlg

 'Use the Quit method to close the new session

 ReflectionSession.Quit

End Sub