Making new control with in visual basic 6.0

Open new project and prepare one command button . last type code of following at form.
Public Function LoadControl(oForm As Object, _
CtlType As String, CtlName As String, nTop As Double, nLeft As Double) As Object
Dim oCtl As Object
On Error Resume Next
If IsObject(oForm.Controls) Then
Set oCtl = oForm.Controls.Add(CtlType, CtlName)
If Not oCtl Is Nothing Then Set LoadControl = oCtl
oCtl.Top = nTop
oCtl.Left = nLeft
oCtl.Visible = True
oCtl.Caption = "Label1"
End If
End Function

Private Sub Command1_Click()
LoadControl Form1, "vb.textbox", "text1", 100, 1000
LoadControl Form1, "VB.CommandButton", "Tombol", 1000, 1000
LoadControl Form1, "vb.Combobox", "cmb1", 2200, 1000
End Sub
Press F5 to running program