Despliegue de controles dinámicos en VB.NET

A continuación se muestra un código VBA que funciona bien añadiendo controles a cualquier objeto que los admita mientras extrae datos de una tabla de la base de datos. Esto funciona tan bien porque aquí tengo un método .Add que admite 2 variables de tipo string que definen el tipo y el nombre del control. No puedo encontrar algo así en VB.Net. Solo puedo hacer procedimientos separados para cada tipo de control. Este código no es utilizable porque no puedo construir un MSForms.UserForm en abstracto. Debe tener un prototipo construido con un diseñador de formularios, mientras que esto en VS solo construye MSForms.UserForms, pero solo System.Windows.Forms.

¿Alguna solución aparte de hacer mi propio procedimiento con muchos Select, Ifs y similares? Esto aún funcionaba en VB.6: hay soluciones históricas en la WEB y en esta plataforma.

Function formFill(obj As Object, strSQL As String) As String
Dim rs As ADODB.Recordset, cntr As MSForms.Control, c As String

c = ""
On Error GoTo formFill_err
Set rs = ui_cnt.Execute(strSQL)

Do While Not rs.EOF

    Set cntr = obj.Controls.Add("Forms." + rs("obj_type") + ".1", rs("obj_name"), True)
    cntr.Height = rs("Height")

    If Left(cntr.Name, 3) = "lbl" And cntr.Height > 32 Then cntr.WordWrap = True
    cntr.Left = rs("Left")
    cntr.Top = rs("Top")
    cntr.Width = rs("Width")
    cntr.Caption = str_convert_null(rs("caption"))
    cntr.ControlTipText = str_convert_null(rs("tip"))
    cntr.Font.Size = 8
    cntr.Visible = True
    If Left(cntr.Name, 3) = "txt" Then
        cntr.AutoSize = False
    Else
        cntr.AutoSize = True
    End If

    c = c + rs("obj_type") + ";" + rs("obj_name") + ";"
    rs.MoveNext
Loop

Set rs = Nothing
formFill = c
Exit Function
formFill_err:
If Err.Number = 438 Then Resume Next
End Function