1. Create a new project named myproject.pbp
in the application directory
Option Explicit
Dim project As AgtPBProject
Private Sub CreateProject( )
On Error GoTo handlers
Set project = New
AgtPBProject
project.NewProject ("myproject.pbp")
Exit sub
handlers:
MsgBox Err.Description
End Sub
2. Open an existing project named myproject.pbp
in the C:\temp directory
Option Explicit
Dim project As AgtPBProject
Private Sub OpenAndSaveProject( )
On Error GoTo handlers
Set project = New AgtPBProject
project.OpenProject ("c:\temp\myproject.pbp")
project.SaveAs("c:\temp\myproject2.pbp")
Exit sub
handlers:
MsgBox Err.Description
End Sub