旧的OCX插件无法在Windows 2016

Question

我们有一个用VB6编写的旧OCX组件应该在Windows 2016服务器上运行，这会给出一些奇怪的行为。 该组件在Windows 2008 R2和Windows 2003环境中运行。

我们注意到的一件事是。

Dim fso As New FileSystemObject

当我们将代码更改为

时，会导致异常

 Dim fso As FileSystemObject
 Set fso = New FileSystemObject

异常消失了。

我们开始的表单是从具有以下代码的用户控件开始的

Public Function Initialize(Optional ByVal pstrMapIni As String, Optional ByVal lGuiAllowed As Boolean = True)
  GUIALLOWED = lGuiAllowed
  If right(pstrMapIni, 1) <> "\" Then
    pstrMapIni = pstrMapIni + "\"
  End If
  pstrMapIni = pstrMapIni + "map.ini"
  frmMain.SetMapIni (pstrMapIni)
  Load frmMain
End Function 

Load frmMain因空引用异常而失败

如果有人知道我们需要搜索哪个方向......我们就不在他们中间了。