Error message Can you help, on the following error. This occurs after printing several labels. Environment is Dymo 400 and Visual Basic application with High Level Com interface. "This action cannot be completed because the other application is busy. Choose 'Switch to' to activate the busy application and correct the problem" Public Function CreateOLEObjects() As Boolean On Error GoTo CANNOTCREATE CreateOLEObjects = True Set IDymoAddIn = CreateObject("Dymo.DymoAddIn") Set IDymoLabels = CreateObject("Dymo.DymoLabels") 'if both OLE objects successfully created then exit the subroutine If Not (IDymoAddIn Is Nothing) And Not (IDymoLabels Is Nothing) Then Exit Function CANNOTCREATE: MsgBox "Unable to create OLE objects" CreateOLEObjects = False End Function If Me.Adodc1.Recordset.RecordCount > 0 Then If Len(Me.DataGrid1.Text) > 0 Then EAN = Mid(RTrim(Me.DataGrid1.Columns(1)), 1, Len(RTrim(Me.DataGrid1.Columns(1))) - 1) 'DYMO objects installed .. If Not CreateOLEObjects Then Me.cmdPrintBarcode.Visible = False Else IDymoLabels.SetField "SUBGROEP", RTrim(Me.cmbSubgrp) IDymoLabels.SetField "OMSCHRIJVING", RTrim(Me.txtOmschrijving) IDymoLabels.SetField "STREEPJESCODE", EAN IDymoLabels.SetField "PRIJS", Me.txtVerkoopPrijs If IsNumeric(Me.txtAantalPrint) Then pAantal = CInt(Me.txtAantalPrint) Else pAantal = 1 End If q = IDymoAddIn.Print(pAantal, True) Set IDymoAddIn = Nothing Set IDymoLabels = Nothing End If End If End If