Public Function AddNewControl(ByVal type As String) As Object
Dim oNewControl As Object
Dim oNewLabel As New System.Windows.Forms.Label
Dim oNewButton As New System.Windows.Forms.Button
Dim oNewTextbox As New System.Windows.Forms.TextBox
Dim oNewCheckbox As New System.Windows.Forms.CheckBox
Dim oNewCombobox As New System.Windows.Forms.ComboBox
Select Case type
Case "label"
Me.List.Add(oNewLabel)
HostForm.Controls.Add(oNewLabel)
oNewLabel.Tag = Me.Count
oNewControl = oNewLabel
Case "button"
Me.List.Add(oNewButton)
HostForm.Controls.Add(oNewButton)
oNewButton.Tag = Me.Count
oNewControl = oNewButton
Case "textbox"
Me.List.Add(oNewTextbox)
HostForm.Controls.Add(oNewTextbox)
oNewTextbox.Tag = Me.Count
oNewControl = oNewTextbox
Case "checkbox"
Me.List.Add(oNewCheckbox)
HostForm.Controls.Add(oNewCheckbox)
oNewCheckbox.Tag = Me.Count
oNewControl = oNewCheckbox
Case "combobox"
Me.List.Add(oNewCombobox)
HostForm.Controls.Add(oNewCombobox)
oNewCombobox.Tag = Me.Count
oNewControl = oNewCombobox
End Select
Return oNewControl
End Function