Option Explicit
 
Private LineColors() As OLE_COLOR
Private LineIndex As Integer
 
Public Property Get AktuelleLinie() As Integer
    AktuelleLinie = LineIndex
End Property
 
Public Property Let AktuelleLinie(ByVal vNew As Integer)
    If vNew > Lines.Count - 1 Then vNew = Lines.Count - 1
    If vNew < 0 Then vNew = 0
    LineIndex = vNew
End Property
 
Public Property Get LineColor() As OLE_COLOR
    LineColor = LineColors(LineIndex)
End Property
 
Public Property Let LineColor(ByVal vNew As OLE_COLOR)
    LineColors(LineIndex) = vNew
    Lines(LineIndex).BorderColor = vNew
End Property
 
Private Sub UserControl_Initialize()
 
Dim Item As Variant
Dim nCnt As Long
nCnt = 0
 
For Each Item In UserControl.Lines
    ReDim Preserve LineColors(0 To nCnt)
    LineColors(nCnt) = Lines(nCnt).BorderColor
    nCnt = nCnt + 1
Next Item
 
End Sub
 
Private Sub UserControl_Terminate()
    Erase LineColors
End Sub

Ohne Mampf, kein Kampf !