例はチェックボックスの例。やり方は簡単。チェックボックスをコントロール配列で作成。インデックスが０(ゼロ)の Check1 のみを画面に残しておく。そして以下のコードを書く。

Private Sub Command1_Click()

    Dim i As Long
    For i = 0 To 4
        If i > 0 Then
            'チェックボックスを新規にロード
            Load Check1(i)
            Check1(i).Top = Check1(i).Height + Check1(i - 1).Top
            Check1(i).Visible = True
        End If
    Next i

End Sub

メニューの場合はこんな感じ↓

Private Sub Command1_Click()

    Dim i As Long
    For i = 0 To 4
        If i > 0 Then
            'チェックボックスを新規にロード
            Load mnuChild(i)
            mnuChild(i).Caption = "メニュー" & CStr(i + 1)
            mnuChild(i).Visible = True
        End If
    Next i

End Sub