Try something like...


for i = 0 to iSongCount - 1
Set cmdButton = Controls.Add("VB.CommandButton", "cmdButton")
With cmdButton
.Caption = "&Main Menu"
.Left = 500
.Top = 100
.Width = 2000
.Visible = True
End With