Well you not choose the simplest way to learn.
First have a look to the Visio sdk and try this primitive samples :
Public Sub LinkListOfPage()
Dim arShapes As Shapes
Dim arConnects As Connects
Dim curShape, beginShape, endShape, linkShape As Shape
Dim curConnect As Connect
Dim strBeginShapeName As String
' retrieve all shapes of the page
Set arShapes = Application.ActivePage.Shapes
For Each curShape In arShapes
' retrieve only the links
bType = curShape.OneD
If bType = True Then
'Retrieve the connection points
Set arConnects = curShape.Connects
For Each curConnect In arConnects
'Retrieve the name of the link (you can optimize and
' test if it is the first element of the loop)
Set linkShape = curConnect.FromSheet
If curConnect.FromPart = VisFromParts.visBegin Then
' retrieve the begin shape
Set beginShape = curConnect.ToSheet
End If
If curConnect.FromPart = VisFromParts.visEnd Then
' retrieve the end shape
Set endShape = curConnect.ToSheet
End If
Next
MsgBox "The link " + linkShape.Name + _
" is from " + beginShape.Name + _
" to " + endShape.Name
End If
Next
End Sub
Try it with some Processus shape linked with each other.
Enjoy with visio.
