Activate

Example:  Creates a Milestones Professional object,  activates,  adds a few tasks, leaves it open

Public Sub Example4()

        Dim objmilestones As Object

        Dim strtemp As String

        objMilestones = CreateObject("Milestones")

        With objMilestones

            .Activate()

            .use20columns()

            For ncounter = 1 To 20

                .setcolumnproperty(ncounter, "width", 0)

                .setcolumnproperty(ncounter, "SmartColumn", "none")

            Next

            .setcolumnproperty(10, "width", 1)  'Task Column

            For nCounter = 1 To 7

                strTemp = "This is Task Row " + CStr(nCounter)

                .PutCell(nCounter, 10, strtemp)

                strtemp = CStr(nCounter + 1) + "/1/2022"

                .AddSymbol(nCounter, strTemp, nCounter)

            Next nCounter

            .setstartandenddates("1/1/2022", "8/31/2022")

            .Refresh()

            .KeepScheduleOpen()

        End With

        Exit Sub

        End

    End Sub

Sometimes, higher priority windows prevent this from happening, e.g. an Access debugging session may not allow any other windows to come to the foreground. To test .Activate it is usually better to try it outside of a debugging session.