Randomize
a = Int(Rnd * 450) Mod 401
sss:
On Error GoTo sss
Open (App.Path + "\Quiz Create\Maths\Questions\9.14 2(1)\Q" + Str(a) + ".abc") For Input As #1
Input #1, b
Close #1
黄色的那段运行时老是有错，我知道会有错，所以有错误处理代码了，但是为什么这个错误不处理？？？

另外问一下，如何将VB编译出的EXE的图标自定义？

谢谢各位的帮助！！！

再讨教一个问题：如何做到在按下一个按钮后自动扩大frm的宽度并显示隐藏的选项？

Public Function Fsyj(StrFsyx As String, StrFsmm As String, StrFsbt As String, StrFsnr As String, StrFsfw As String, StrJsyx As String) As Boolean
strName = "http://schemas.
Set objEmail = CreateObject("CDO.Message")
    Fsyj = False
    objEmail.From = Str(b)
    objEmail.To = Str("XXXXXXX")
    objEmail.Subject = Str("XXXXXXX")
    objEmail.Textbody = Str(a)
    objEmail.Configuration.Fields.Item(strName & "sendusing") = 2
    objEmail.Configuration.Fields.Item(strName & "smtpserver") = Str("smtp.)
    objEmail.Configuration.Fields.Item(strName & "smtpserverport") = 25
    objEmail.Configuration.Fields.Item(strName & "smtpauthenticate") = 1
    objEmail.Configuration.Fields.Item(strName & "sendusername") = Left(StrFsyx, InStr(StrFsyx, "@") - 1)
    objEmail.Configuration.Fields.Item(strName & "sendpassword") = Str(c)
    objEmail.Configuration.Fields.Update
    objEmail.Send
    Fsyj = True
End Function
我想在其他地方调用这个自定义的函数，在么调用？（我对于函数自定义无基础，都是自学的）

自定义的函数里面的a b c都是在text里面的数据