Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      fTest = New frmTest
      fTest.TopLevel = False
      fTest.Visible = True
      fTest.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or _
        AnchorStyles.Right Or AnchorStyles.Bottom
 
      Panel1.Controls.Add(fTest)
   End Sub

Public Class frmTest
   Private i As Integer = 0
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs)
      Dim cb As New CheckBox
      cb.Location = New Point(10, 20 * i)
      cb.Visible = True
      cb.Width = 100
      cb.Text = "Hallo"
 
      Panel1.Controls.Add(cb)
 
      i += 1
   End Sub
End Class