你在窗体里加了8个TIMER控件，可以在窗体里添加1个 变量 用于

在TIMER事件中收到窗体关闭信息

Dim bToQuit As Boolean

Private Sub Form_Load()

bToQuit = False

End Sub

Private Sub Form_Unload(Cancel As Integer)

bToQuit = True

End Sub

Private Sub Timer1_Timer()

If bToQuit Then

Timer1.Enabled = False

'结束处理

Else

End If

End Sub

这样窗体关闭时，Timer1事件中就可以作出结束处理,

比如上传文件的，可以中断上传，保存信息。