Private Sub Command1_Click()
Dim N As Integer
 
On Error Resume Next
 
Label(0).Visible = True
 
For N = 1 To 10
Load Label(N)
Label(N).Move 120, Label(N - 1).Top + Label(N).Height + 10
Label(N).Caption = "Label" & " " & Label(N).Index
Label(N).Visible = True
Next
End Sub
 
Private Sub Command2_Click()
Dim N As Integer
 
On Error Resume Next
 
For N = 1 To 10
Unload Label(N)
Next
 
Label(0).Visible = False
End Sub
 
Private Sub Form_Load()
Label(0).Caption = "Label 0"
Label(0).Move 120, 120
End Sub