'Hallo...
'hier noch ein simples Beispiel um Linien zur Laufzeit zu erzeugen und wieder zu
'entfernen.
'Benötigt ein Line-Control mit dem Index = 0 und der Visible-Eigenschaft = False
'
 
Private Sub Command1_Click()
    'Hinzufuegen
    Dim n As Integer
    Randomize
 
    For n = 1 To 60
        Load Line1(n)
        With Line1(n)
            .X1 = Me.Width / 2
            .Y1 = Me.Height / 2
            .X2 = Int(1000 * Rnd) + 1
            .Y2 = Int(1000 * Rnd) + 1
            '.BorderColor = Int((255 - 128 + 1) * Rnd + 128)
            .BorderColor = Int(QBColor(5) * Rnd) + 1
            .Visible = True
        End With
    Next
End Sub
 
Private Sub Command2_Click()
    'Entfernen...
    For n = 1 To 60
        Unload Line1(n)
    Next
End Sub
'MfG
'Frank