Visual Basic Milestones Professional OLE Automation example

This example shows how the SaveHTMLHyperlinkDrillDown method can be used
to generate a set of web pages. Try this example

The Code:

Public Sub Main()
Dim objmilestones As Object
'This example shows how the SaveHTMLHyperlinkDrillDown method can be used
' to generate a set of web pages.
' Along with this example, is a set of files which must be put into a folder
' named testhl on the C drive.

Set objmilestones = GetObject("c:\testhl\toplevel.mla")
With objmilestones
.Activate
.savehtmlhyperlinkdrilldown "C:\testhl\toplevel.htm"
.keepScheduleOpen
End With
End Sub

To try this example:

1	Click here to download a Zip file (MilestonesVBExample7.Zip) containing the above VB code and the Milestones Professional schedules needed for this example.

2	Create a folder on your C drive and name it TestHL

3	Extract the Milestones Professional schedules in the zip file to the new folder.

4	Run the program! (Be sure you have the latest Milestones Professional update)

KIDASA Software, Inc. Website