我用unload me 为什么不能够把我的程序关闭呢？？请帮忙，附有源代码

[flc]

我只把部分的代码贴了出来
Public Function writeSign(intSign As Integer) As Integer
Timer3.Enabled = False
Dim intReturn As Integer
delay (100)
intReturn = writeval(intSign)
If intReturn < 0 Then
delay (100)
intReturn = writeval(intSign)
If intReturn < 0 Then
delay (100)
intReturn = writeval(intSign)
If intReturn < 0 Then
MsgBox ("写通讯错误!——" + Str(intReturn))
writeSign = -1
Unload Me
End If
End If
End If
writeSign = 0
delay (50)
Timer3.Enabled = True
End Function

[佛的光辉]

可能是因为有一些资源无法释放，光看这里看不出什么问题

[踏平扶桑]

你在调试模式下看看会不会执行unlaod me（所有的窗体都要执行这个语句，要不然会有些窗体没卸载而导致程序没结束）这个语句。或者用end强制结束程序

[flc]

谢谢两位的关注
正如5653325所说 问题解决了