哪位大佬会网络拓扑图，教一下如何写代码使几台计算机互连

Public coldevs As New Collection
Public Devindex As Long

Public Sub init(ByVal lev As Long, X As Long, Y As Long)

    Dim tmpDev(3) As Long
    Devindex = Devindex + 1
    tmpDev(0) = Devindex
    tmpDev(1) = X
    tmpDev(2) = Y
    coldevs.Add tmpDev
    
    If lev >= 3 Then Exit Sub
    Picture1.Line (X, Y)-(X - 2000, Y + 2000), vbRed
    init lev + 1, X - 2000, Y + 2000
    Picture1.Line (X, Y)-(X + 2000, Y + 2000), vbRed
    init lev + 1, X + 2000, Y + 2000
End Sub

Private Sub Form_Load()
    
    Dim i As Integer
    Dim pictmp
    'Me.ScaleMode = 3
    Picture1.AutoRedraw = True
    Picture1.DrawWidth = 3
    init 1, Me.ScaleWidth / 2, 500
    For i = 1 To coldevs.Count
        Set pictmp = LoadPicture("B:\1.jpg")
        Picture1.PaintPicture pictmp, coldevs(i)(1) - pictmp.Width / 3, coldevs(i)(2) - pictmp.Height / 3
        Picture1.CurrentX = coldevs(i)(1) - pictmp.Width / 3
        Picture1.CurrentY = coldevs(i)(2) + pictmp.Height / 3
        Picture1.Print "device " + Format(coldevs(i)(0), "00")
    Next
End Sub