Dim oControl As Control
  Set oControl = Me.Controls.Add("VB.ListBox", "myListBox")
  With oControl
    .Move 0, 0
    .Visible = True
 
    .AddItem "Test"
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de