Private Sub Command1_Click()
Dim sErr As String
Dim m_oCtl As Object
 
On Error GoTo ErrorHandler

Set m_oCtl = LoadControl(Me, "VB.CommandButton", "command15")

If Not m_oCtl Is Nothing Then
    m_oCtl.Top =  100 
    m_oCtl.Left =  100 
    m_oCtl.Visible = True
    m_oCtl.Caption = "NewRunTimeButton"
End If

Exit Sub

ErrorHandler:
    sErr = Err.Number & " " & Err.Source & " " & Err.Description
    MsgBox sErr, vbInformation
End Sub

Function LoadControl(oForm As Object, _
 CtlType As String, CtlName As String) As Object

Dim sErr As String
Dim oCtl As Object
 
On Error GoTo ErrorHandler
    
If IsObject(oForm.Controls) Then
    Set oCtl = oForm.Controls.Add(CtlType, CtlName)
    If Not oCtl Is Nothing Then Set LoadControl = oCtl
    
End If
Exit Function

ErrorHandler:
    sErr = Err.Number & " " & Err.Source & " " & Err.Description
    MsgBox sErr, vbInformation, "LoadControl"
End Function