点击“View Object”时VB6.0运行出错退出，该怎么解决？重新安装VB也不能解决，Win7系统。

按照微软的说法是win7已经不再支持VB6了，事实上在win7上安装VB6时也会有不兼容的提示。

不过如果强行安装的话安装后也是可以使用的，只需要简单的设置一下即可。

安装时遇到不兼容的提示时选择忽略，然后一路安装到底。安装后打开VB，在窗体上拖放控件时可能有一卡一卡的现象，这时只要关闭windows7的玻璃特效即可解决。

另外在VB程序的快捷方式上右键打开属性，切换到兼容性选项卡，把以管理员身份运行那个勾上，这样可以解决部分控件例如msflexgrid、commondialog等不能使用的问题。

我用的就是WIN7和VB6的中文企业版，按照上面的设置使用没有问题。

Hi me

I can do it for you.

Dim passtime as integer

Private Sub Form_Load()

Text1.Text = ""

Text1.MaxLength = 8

Text1.PasswordChar = "*"

Label2.Caption = ""

Label1.Alignment = 2

passtime=0

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

passtime=passtime+1

'----无论密码对不对只要回车都增加一个次数

if passtime>3 then

label2.caption="显示非法用户,请退出程序."

exit sub

unload me

end

end if

'--这一段就是判断密码次数的

If Text1.Text = "12345678" Then

Label2.Caption = "欢迎光临!"

Else

Label2.Caption = "密码不符,请重新输入!"

Text1.Text = ""

End If

End If

End Sub

---