Private Sub Form_Load()
Dim VbsStr As String
Dim VbsSC As New ScriptControl
VbsSC.Language = "VBScript"
VbsStr = "Sub Resize()" & vbCrLf & _
        "  Text1.Text = 1" & vbCrLf & _
        "  List1.AddItem Text1.Text" & vbCrLf & _
        "  List1.Selected(0) = True" & vbCrLf & _
        "End Sub"
VbsSC.AddCode VbsStr
VbsSC.AddObject "Text1", Text1
VbsSC.AddObject "List1", List1
VbsSC.Run "Resize"
VbsSC.Reset

End Sub