Private Sub Form_Load()
Dim ctrl1 as control
Set ctrl1 = myfrm.Controls.Add("VB.CommandButton", "Team1", Me)
ctrl1.Visible = True
End Sub

Sub TestClick()
Msg "button clicked!"
End Sub