一个关于进度条的问题????

单击按钮运行以下程序...Form1.Show vbModal'以下是调用一个类,是用来导出Excel数据的
Dim Cls_ReportExcel As New Cls_ReportExcel
Set Cls_ReportExcel = New Cls_ReportExcel
Call Cls_ReportExcel.ExportExcel_Card("CardInfo")
Set Cls_ReportExcel = Nothing我想说的是,Form1中有一个进度条,用来显示导出进度,
如果设置显示模式为VBModal的话,必须得等时进度条跑到头才运行下面的代码,如果不设置为VBModal的话,就看不到效果了,那得等报表导出后才会看到效果.现在我想实现的就是,Form1始终在窗体最上层,并且当进度条跑到头,Excel报表这时也打开.'------Form1中代码-------Private Sub Form_Load()  Dim MaxCount As Integer
  
  Select Case Frm_Main.SSTab_Main.Tab
    Case 0
      MaxCount = Frm_Main.LVW_PlanRemind.ListItems.Count
    Case 1
      MaxCount = Frm_Main.LVW_Account.ListItems.Count
    Case 2
      MaxCount = Frm_Main.LVW_InfCard.ListItems.Count
    Case 3
      MaxCount = Frm_Main.LVW_WebSite.ListItems.Count
    Case 4
      MaxCount = Frm_Main.LVW_DataList.ListItems.Count
    Case 5
      MaxCount = Frm_Main.LVW_Diary.ListItems.Count
    Case Else
      MaxCount = 0
  End Select'----PBar为进度条-----  Me.PBar.Value = 0
  Me.PBar.Min = 0
  Me.PBar.Max = MaxCount + 1
  Me.Timer1.Enabled = True
 
End SubPrivate Sub Timer1_Timer()
 
  Me.PBar.Value = Me.PBar.Value + 1
  
  Me.Lab_Complete.Caption = Int(Me.PBar.Value / Me.PBar.Max * 100) & Chr(32) & "%"
  
  If Me.PBar.Value >= Me.PBar.Max Then
    Me.Timer1.Enabled = False
    Unload Me
  End If
    
End Sub
请问如何实现啊......谢谢了...