Visual Basic - crear nuevo objeto

Hola

Estoy intentando crear una funcion que reciba un linea y que cree otra exactamente igual pero con otro color, la crea pero me la crea debajo y no se ve,

Public Function otraLinea(linea As Line)
Dim linea2 As Line
Set linea2 = linea
Set linea2 = Controls.Add("VB.line", "linea2")
With linea2
.X1 = linea.X1 + 200
.Y1 = linea.Y1 + 200
.X2 = linea.X2
.Y2 = linea.Y2
.BorderWidth = linea.BorderWidth
.BorderColor = vbYellow
.Visible = True
End With

End Function

Lo mejor es que crees un array do controles Line y vayas cargando nuevos controles. Aquí te pongo un ejemplo, para que funcione inserta un control line llamado Line1 y establece su propiedad index a 0, para crear un array de controles. Después pon este código:

Private Sub Form_Click()
Load Line1(Line1.Count)
With Line1(Line1.Count - 1)
.X1 = Line1(Line1.Count - 2).X1 + 150
.X2 = Line1(Line1.Count - 2).X2 + 150
.Y1 = Line1(Line1.Count - 2).Y1 + 150
.Y2 = Line1(Line1.Count - 2).Y2 + 150
.Visible = True
End With
End Sub

Al hacer click sobre el formulario irán apareciendo más lineas