加载了一个动态链接库，VB自动退出

    在模块中加载了一个动态链接库，程序运行后通过动态库中的接口获得一个返回值，通过msgbox给出。代码很简单，可是一关闭窗口，VB自动退出，还得重新打开VB才可以调试。 
    模块中的代码如下：
    Public Declare Function Wim_SetCom Lib "wim.dll" (ByVal comNo As String, ByVal bps As Integer) As Integer
    窗体中的代码如下：
Private Sub Form_Load()
Dim Str
Str = Wim_SetCom("com2", 9600)
MsgBox Str
End Sub

    请问这是什么原因？如何解决？ --------------------编程问答-------------------- VB IDE环境中调用API在很多时候是有这样的问题的，程序没有问题，编译后执行一般没问题，你可以测试一下编译后的程序。
--------------------编程问答--------------------     谢谢！编译后没有问题，可是编写代码时非常的不方便，每运行一次就得保存，不保存就全丢失了。我打了SP6的补丁也还是这样，是不是需要写入什么指令才可以避免这种情况发生？ --------------------编程问答-------------------- ........... --------------------编程问答-------------------- 端口关闭了没有?

补充：VB ,  API