重新启动程序的问题

Question

我现在是利用
    Shell App.Path & "\" & App.EXEName, vbNormalFocus
    End
重启程序，可这样的话会使我程序的一些初始化工作出现错误，比如：读卡器不能初始化..End So On有什么办法能解决这样的问题？

Answer 1

初始化的时候读取设备：
    If iStatus = 1 Then
        fnAtsCloseDev
        nRet = fnAtsOpenDev(iPort) '这里初始化端口
        
        If nRet < 0 Then
            MsgBox ("初始化端口出错!请检查读卡器是否正确与计算机连接!"), vbCritical, "警告"
            'Exit Sub
        End If
    End If函数在DLL里我都见不到。。