Mit der Funktion Load erstellen sie eine Kopie eines schon vorhandenen Steuerelementes in ein Steuerlementefeld
Dann müssen folgende Werte für das neue Steuerelement festgelegt werden
steuerelement.left
steuerelement.top
steuerelement.visible
und andere gebrauchte einstellungen
Die Kopie heißt dann Label1(0)
und dann Label1(1) usw.
Das Feld heißt dann Label1
Dait wählt man alle Elemente in diesem Feld an.
Beispiel:
Erstellen sie ein Label: Label(0)
Dann schreiben sie folgenden Programmtext
Dim Var'Variablendeklaration
Private Sub Form_Load()
Var = 1
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then'Bei linkem Mausklick
Load Label1(Var)'copierung des Steureelementes und Festlegung der Eigenschaften(Position der Maus=
Label1(Var).Left = X
Label1(Var).Top = Y
Label1(Var).Visible = True
Label1(Var).Caption = Var
Var = Var + 1
End If
End Sub