我用unload me 为什么不能够把我的程序关闭呢??请帮忙,附有源代码
flc 2003-10-16 08:02:56 我只把部分的代码贴了出来
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