OnErrorGoTo的应用(VB6.0源代码编写)IfText2.Text""AndText1.Text""ThenOnErrorResumeNextText3.Text=CInt(Text1.Text)+CInt(Text2.Text)EndIf