VB6程序导致运行时错误380

Question

这是一个类似的线程，但仍然没有运气。 What causes this error? “Runtime error 380: Invalid property value”

该程序已在XP~Win8上运行多年

最近在Vista Home Premium笔记本电脑上安装产生此错误。

以下是错误之前的最后一个代码：

 On Local Error Resume Next

 fSetup.Show

 If Err.Number <> 0 Then MsgBox Err.Description, vbCritical

 On Local Error GoTo 0

它不是if子句。

在目标表单的表单加载中，它永远不会进入If子句

If bTestMode Then MsgBox "Setting me.tag", vbOKOnly
Me.Tag = "FormLoad"
If bTestMode Then MsgBox "Me.Tag Set", vbOKOnly    
If bTestMode Then MsgBox "Setting me.tag", vbOKOnly
Me.Tag = "FormLoad"
If bTestMode Then MsgBox "Me.Tag Set", vbOKOnly

提前谢谢。

Answer 1

将System Locale设置为Korean，导致非unicode VB6具有trama