Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim publications1 = Part1.Publications
Num_publications = publications1.Count
For b = 1 To Num_publications
Dim publication1 = publications1.Item(b)
Dim pubRef As Reference
Dim PubName As String = Left(publication1.Name, 4)
Dim Publication = publication1.name
Next