Dynamisk oprette labels?

Ja det kan man sagtens
Lav et nyt exe project sæt en knap ind på formen og en label sæt dens index til 0 paste denne kode ind:

Private Sub Command1_Click()
    Dim i As Integer
    Label1(0).Caption = i
    For i = 1 To 3
       
        Load Label1(i)
        Label1(i).Top = Label1(i - 1).Top + 600
        Label1(i).Visible = True
        Label1(i).Caption = \"Dette er test \" & i
       
        Form1.Refresh
    Next i
End Sub

og der vil blive lavet 3 nyt labels.

Smukt! Mange tak skal du ha\' :-D