Dim rgw As New GWayAX
Private Sub CommandButton1_Click() Dim rg As Long rg = rgw.ModelRetrieve("cupholder.prt") rg = rgw.SessionSetCurrentModel("cupholder.prt") End Sub