tocx pathName OleClassName
This command creates a new Tk widget (given by the pathName argument) that encapsulates an instance of an Active X Control whose name is given by OleClassName. When the ole command is invoked, a window named pathName must not exist, but the parent window must exist. It creates a new Tcl command named pathName, and returns the pathName argument. The newly created widget command can be used to query or invoke the methods exposed by the Active X Control, process the Control's events, and query or modify the Control's properties.
tocx .smi .smi SMILE.SmileCtrl.1
This command creates a new window .smi containing the Smile Control