The LEAD Network Source object can be obtained by declaring the LMNetSrc object using the following code:
Dim pns As New LMNetSrc