VBA6.Dll 关于ExecuteLine 的问题

Question

我知道有一个窗体的字符串，但是我现在想调用这个窗体，就是Ｓｈｏｗ出来，但在Ｓｈｏｗ之前（也就是Ｆｏｒｍ＿Ｌｏａｄ之前我有一个属性　　ＤｏｃＴｙｐｅ　要进行赋值　）　　我用了各种方法，但是还是有问题，望各位大虾援手。
StrFormLoadName ="Bas_Info"
１.
    Dim F as Form     set F=Forms.Add(StrFormLoadName)
    F.Show
2　              Set F= Forms.Add(StrFormLoadName)               Set AA = CreateObject("MSScriptControl.ScriptControl")
               AA.Language = "vbscript"
               AA.AddObject StrFrm, NewForm
               AA.ExecuteStatement (StrFormLoadName & ".DOCType=""02""")
               AA.ExecuteStatement (StrFormLoadName & ".Show")
  这里引用了ＳｃｒｉｐｔＣｏｎｔｒｏｌ　要注意
3
Public Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
       ExecuteLine = EbExecuteLine(ByVal StrPtr(sCode), 0&, 0&, fCheckOnly) = 0
End Function
                ExecuteLine StrFrm & ".DOCType=""02"""
                ExecuteLine StrFrm & ".Show"第三种最完美，但是是调试的时候，编译之后一运行这个ExecuteLine 　整个系统就跳出来了，５～　　这是怎回事么呀，请各位大虾帮忙

Answer 1

你自己定义的窗口对象 ExecuteLine 也认识？

Answer 2

你最好移动一下在form_load里的代码如放到一个函数中在在代码中调用这个函数，vba6.dll的EBExecuteLine函数编译后一定不好使的。
在代码结构设计中避免这个问题。

Answer 3

VBa.dll只能在IDE环境下有效，还是用MSScriptControl.ScriptControl吧~