Is there any way to send SalesLogix "to the back" in the display zOrder?  I am calling an ActiveX control (that I don't have the source code for) that requires input from the user, but annoyingly pops up underneath the SalesLogix window, causing SalesLogix to appear to freeze (since it's waiting for the control to close).  Since I can't modify the ActiveX control so that it does an always on top, I want to either send SLX to the back or minimize it until the ActiveX control does its thing.

Any ideas?

Thanks!

Cory Haibloom

Windows Shell commands? Alt-Tab kinds of stuff?

Not sure what you're thinking of with Windows Shell commands.  At to using Alt-Tab, the activex control doesn't show up in that list so can't be accessed via alt-tab.  I basically need to either tell SalesLogix to launch the control and force it to be on top, or to minimize SLX or put it on the bottom after launching the control

Can you post the code that you are using to call/display the control?

Here you go, Phil.  The activex control being called is QBAddCustomer

sub CallQBuzz1()

    Dim strSQL, sString
    Dim objRS
    Dim Form
    Dim sCurrentAccountID
    Dim WshShell
    dim objSLXDB

    sCurrentAccountID = Application.MainViews.ActiveView.CurrentID

    strSQL = "select a.account, c.firstname, c.lastname, a.mainphone, a.fax, c.email, ad.address1, ad.address2, ad.city, " & _
             " ad.state, ad.postalcode from sysdba.account a inner join sysdba.contact c on c.accountid = a.accountid " & _
             " inner join sysdba.address ad on a.addressid = ad.addressid WHERE accountid='" & sCurrentAccountID & "' and c.isprimary='t'"

    If Not IsObject(objSLXDB) Then
       Set objSLXDB = New SLX_DB
    End If

    Set objRS = objSLXDB.GetNewRecordset
    objRS.Open strSQL, objSLXDB.Connection

    If Not (objRS.BOF And objRS.EOF) Then
        objRS.movefirst

        ' now build the string
        sString = sString & "|co=" & objRS.Fields("ACCOUNT").Value
        sString = sString & "|f=" & objRS.Fields("FIRSTNAME").Value
        sString = sString & "|l=" & objRS.Fields("LASTNAME").Value
        sString = sString & "|p=" & objRS.Fields("MAINPHONE").Value
        sString = sString & "|x=" & objRS.Fields("FAX").Value
        sString = sString & "|e=" & objRS.Fields("EMAIL").Value
        sString = sString & "|a1=" & objRS.Fields("ADDRESS1").Value
        sString = sString & "|a2=" & objRS.Fields("ADDRESS2").Value
        sString = sString & "|c=" & objRS.Fields("CITY").Value
        sString = sString & "|s=" & objRS.Fields("STATE").Value
        sString = sString & "|z=" & objRS.Fields("POSTALCODE").Value

    End If

    objRS.Close
    Set objRS = Nothing
    set objSLXDB = nothing

    Dim x
    Dim NewQBID

    Set x = CreateObject("QBAddCustomer.NewCust")

    x.CustomerData = sString

    NewQBID = x.NewQBContact()

    Set x = Nothing

    if NewQBID <> "" then      ' the user created a new QB Customer
       'MsgBox "Created New QuickBooks Customer ID: " & NewQBID
       txtQBLink.Text = NewQBID
       ' Update the UI
       lblQBuzz.Visible = false
       txtQBLink.Visible = true
       btnConvert.Visible = false

    end if

    set Form = nothing

end sub