我的代码有问题吗
Sub Main()
On Error GoTo errorhandle

systemini
Dim mFrm As New MainForm
' mFrm.Show

mFrm.SendXiaoLiangSms

Unload mFrm

Set mFrm = Nothing

End

Exit Sub '推出过程

errorhandle:
''MsgBox Err.source & " " & Err.Number & " " & Err.Description, vbInformation, "提示"
' MsgBox "请配置好 ini 文件 , 连接数据库 ! ", vbInformation, "提示"
Exit Sub
End Sub
[解决办法]
End

Exit Sub '推出过程

[解决办法]
这个代码为什么要加END呢，加了这个后面的代码就执行不到了
[解决办法]
去掉End，要不就直接结束了。
[解决办法]
Unload mFrm

Set mFrm = Nothing

End

Exit Sub '推出过程

不过他好像就是要发送了短信后退出程序。
[解决办法]
谢谢了 ！！