Visual Basic - Crear líneas entre dos puntos.

Hola Foro.

Tengo un formulario MDI donde se encuentran unos formularios con ListBoxs que representan las tablas de una aplicación. Ahora quiero crear una 'línea' que represente la relación entre las tablas, al más puro Diagrama de SQL. ¿Como puedo hacerlo? ¿Que función o funciones puedo utilizar?

Agradecería cualquier sugerencia.

Prueba el siguiente ejemplo para que hagas una idea. Primero debes tener un formulario y dos controles ListBox. Luego agrega este código:

Private Sub Form_Load()
Me.AutoRedraw = True
Dim xIni, yIni, xFin, yFin, I
List1.AddItem 1
List2.AddItem 1
List2.AddItem 2
List2.AddItem 3
List2.AddItem 4
xIni = List1.Left + List1.Width
xFin = List2.Left
yIni = List1.Top + 125
For I = 1 To 4
yFin = List2.Top + 125 + (I - 1) * 195
Me.Line (xIni, yIni)-(xFin, yFin)
Next I
End Sub

Espero que te sea de ayuda...