จะทำปุ่ม create element textbox,dropdownlist ต้องทำอย่างไรครับ

Public Sub provideObjectAt(ByVal objTextbox As TextBox)   // ใส่ objest
        Try
            objTextbox.AutoCompleteMode = AutoCompleteMode.Suggest
            objTextbox.AutoCompleteSource = AutoCompleteSource.CustomSource
            objTextbox.AutoCompleteCustomSource = atcol
        Catch ex As Exception
        End Try
    End Sub

 Private Function atCollection(ByVal table As DataTable, ByVal colname As String) As AutoCompleteStringCollection 
         // ใส่ datatable กับ ชื่อ column  
        Dim atcol As New AutoCompleteStringCollection
        Try
            For Each dr As DataRow In table.Rows
                atcol.Add(dr(colname))
            Next
        Catch ex As Exception

        End Try
        Return atcol
    End Function