分割文件时如何让它执行其它操作？

当文件很大分割文件时执行时不能执行其它操作（如停止），必需分割完后才能执行其它操作（如停止），如何能执行其它操作？Private Sub Command1_Click()
  Label5.Caption = "正在分割请稍候..."
  c = Val(Text3.Text): b = 1
 ' c为分割的块数。
 ' n为源文件的大小。
  Open path1 For Binary As #1
  Me.MousePointer = 11
  m = Int(n / c): m = Int(m / 8) * 8
  For i = 1 To c - 1
    path2 = Dir2.Path + "\" + Chr(96 + i) + File1.FileName
    ’分割成块a 块b 块c.....
    Open path2 For Binary As #2
    File2.Refresh
    For j = b To m * i Step 8
      ‘在分割文件成字节时执行
      Get #1, , p
      Put #2, , p
    Next j
    b = m * i + 1
    Close #2
  Next i
  path2 = Dir2.Path + "\" + Chr(96 + c) + File1.FileName
  Open path2 For Binary As #2
  File2.Refresh
  For j = b To Int(n / 8) * 8 Step 8
    Get #1, , p
    Put #2, , p
  Next j
  b = Int(n / 8) * 8 + 1
  For i = b To n
    Get #1, , q
    Put #2, , q
  Next i
  Close
  Me.MousePointer = 0
  Label5.Caption = ""
End Sub