Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim ScriptControl As New MSScriptControl.ScriptControl Dim cScript As String = "" ListBox1.Items.Add("Sunday") ListBox1.Items.Add("Monday") cScript = "Msgbox ListBox1.Name" & vbCrLf cScript = cScript & "Msgbox ListBox1.Items.Count " TextBox1.Text = cScript ScriptControl.Language = "VBScript" ScriptControl.AddObject("ListBox1", ListBox1, True) ScriptControl.ExecuteStatement(TextBox1.Text) End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)