怎么中止数据上传

如何中止数据上传?
我所使用的是VB6.0,
我说说我操作的情况吧:
将运行程序后,在主界面中的下拉菜单中选择这个窗体打开,单机"上传数据"按钮,将数据上传,后来数据上传一半的时候,发现我现在有不想把数据上传了,就单机"退出"按钮,返回到了主界面,想再次打开这个窗体看看的时候,在下拉菜单中单机这个窗体,本来应该是出现窗体的,但是却什么也没有显示.只有将这个程序关闭后重新运行才可以再次打开这个页面.

所以我要上传的数据是以文本文档的形式存在的,
基本步骤是:
打开文本文档->将里面的数据上传到数据库->关闭文档->将文本文档移至备份文件夹->删除原路径下的文本文档
要怎样在数据上传一半的时候中止上传呢?求助!!!
[解决办法]
首先，把退出按钮代码改了。将 Unload 的处理放在另一个过程中。

Dim blnStop As Boolean, blnBusy As Boolean

Private Sub Exit_Form()
    On Error Resume Next
    Set oComm = Nothing
    Set oResize = Nothing
    Unload Me
    On Error GoTo 0
End Sub

Private Sub cmdExit_Click()
    If blnBusy Then
        blnStop = True
    Else
        Exit_Form
    End If
End Sub

......

   blnBusy = True
   For i = 1 To lvList.ListItems.Count
      DoEvents
      If blnStop Then
         If MsgBox("是否中止导入消费数据？", vbOKCancel, "提示信息") = vbOK Then 
            Exit_Form
            Exit Sub
         Else
            blnStop = False
         End If
      End If
......
                Do Until EOF(1)
                   DoEvents
                   If blnStop Then
                      If MsgBox("是否中止导入消费数据？", vbOKCancel, "提示信息") = vbOK Then 
                         Close #1
                         Exit_Form
                         Exit Sub
                      Else
                         blnStop = False
                      End If
                   End If
......
    Next i
    blnBusy = False
......