如何在VB中运行VBS文件？

'修改Form的标题
Private Sub Form_Load()
Dim vbs As Object
Set vbs = CreateObject("ScriptControl")
vbs.Language = "vbs"
vbs.AddObject "ThisForm", Me, True
vbs.AddCode "sub mysub():ThisForm.caption=""hello"":end sub"
vbs.ExecuteStatement "mysub"
Set vbs = Nothing
End Sub

'修改Text1的内容
Dim vbs As Object
Set vbs = CreateObject("ScriptControl")
vbs.Language = "vbs"
vbs.AddObject "ThisForm", Me, True
vbs.AddCode "sub mysub():ThisForm.text1.text=""hello"":end sub"
vbs.ExecuteStatement "mysub"
Set vbs = Nothing

path="vbs\gy.vbs"
shell "Wscript " & path

没用过