麻烦老师给看看该怎么优化

源代码For ii = 0 To Form45.List1.ListCount - 1
               For bb = 0 To 26
               For st = 1 To 4
               For stc = 1 To 4
                For stb = 1 To 4
                
                 Form45.List1.ListIndex = ii
                jj = "157"
              x = "0248"
              n = "369"
               diu(1) = Mid(jj, st, 1)
              diu(2) = Mid(x, st, 1)
              diu(3) = Mid(n, st, 1)
              
              dii(1) = Mid(jj, stc, 1)
               dii(2) = Mid(x, stc, 1)
               dii(3) = Mid(n, stc, 1)
               
              dia(1) = Mid(jj, stb, 1)
              dia(2) = Mid(x, stb, 1)
              dia(3) = Mid(n, stb, 1)
          If Form45.Check1(bb).Value = 1 Then sta = Form45.Check1(bb).Caption
             If Form45.Check1(bb).Value = 0 Then sta = Form45.Check1(bb).Caption
            If Mid(sta, 1, 1) = "1" Then adk = Val(diu(1))
           If Mid(sta, 1, 1) = "2" Then adk = Val(diu(2))
            If Mid(sta, 1, 1) = "3" Then adk = Val(diu(3))
            
            If Mid(sta, 2, 1) = "1" Then adp = Val(dii(1))
           If Mid(sta, 2, 1) = "2" Then adp = Val(dii(2))
           If Mid(sta, 2, 1) = "3" Then adp = Val(dii(3))
           
           If Mid(sta, 3, 1) = "1" Then adl = Val(dia(1))
           If Mid(sta, 3, 1) = "2" Then adl = Val(dia(2))
           If Mid(sta, 3, 1) = "3" Then adl = Val(dia(3))
         
            For i = MSFlexGrid1.Rows - 1 To 1 Step -1
         dl = MSFlexGrid1.TextMatrix(i, 1)
           sttb(0) = Mid(dl, 1, 1)
           sttb(1) = Mid(dl, 2, 1)
           sttb(2) = Mid(dl, 3, 1)
         
         If Form45.Option1(0) = True Then
        If sttb(0) = adk And sttb(1) = adp And sttb(2) = adl And Form45.Check1(bb).Value Then MSFlexGrid1.RemoveItem i
      ElseIf Form45.Option1(1) = True Then
              If sttb(0) = adk And sttb(1) = adp And sttb(2) = adl And Form45.Check1(bb).Value = 0 Then MSFlexGrid1.RemoveItem i
      End If
           
       Next
           Next
           Next
    
     Next
   Next
   Next现在优化成 Form54.Show
For ii = 0 To Form45.List1.ListCount - 1
               Form45.List1.ListIndex = ii
                jj = "0248"
              x = "157"
              n = "369"
               
              
              
               For bb = 0 To 26
          If Form45.Check1(bb).Value = 1 Then sta = Form45.Check1(bb).Caption
             If Form45.Check1(bb).Value = 0 Then sta = Form45.Check1(bb).Caption
              For st = 1 To 4
            If Mid(sta, 1, 1) = "2" Then adk = Mid(jj, st, 1)
           If Mid(sta, 1, 1) = "1" Then adk = Mid(x, st, 1)
            If Mid(sta, 1, 1) = "3" Then adk = Mid(n, st, 1)
             For stc = 1 To 4
            If Mid(sta, 2, 1) = "2" Then adp = Mid(jj, stc, 1)
           If Mid(sta, 2, 1) = "1" Then adp = Mid(x, stc, 1)
           If Mid(sta, 2, 1) = "3" Then adp = Mid(n, stc, 1)
            For stb = 1 To 4
           If Mid(sta, 3, 1) = "2" Then adl = Mid(jj, stb, 1)
           If Mid(sta, 3, 1) = "1" Then adl = Mid(x, stb, 1)
           If Mid(sta, 3, 1) = "3" Then adl = Mid(n, stb, 1)
         
            For i = MSFlexGrid1.Rows - 1 To 1 Step -1
        
           sttb(0) = Mid(MSFlexGrid1.TextMatrix(i, 1), 1, 1)
           sttb(1) = Mid(MSFlexGrid1.TextMatrix(i, 1), 2, 1)
           sttb(2) = Mid(MSFlexGrid1.TextMatrix(i, 1), 3, 1)
         
         If Form45.Option1(0) = True Then
        If sttb(0) = adk And sttb(1) = adp And sttb(2) = adl And Form45.Check1(bb).Value Then MSFlexGrid1.RemoveItem i
      ElseIf Form45.Option1(1) = True Then
              If sttb(0) = adk And sttb(1) = adp And sttb(2) = adl And Form45.Check1(bb).Value = 0 Then MSFlexGrid1.RemoveItem i
      End If
           
       Next
           Next
           Next
    
     Next
   Next
   Next
Unload Form54但是效果不明显，运算时间达到13秒左右，并且我没有用进度条，而是直接弹出一个窗体form54,窗体有"正在运算。。",不过从开始弹出到运算完成关闭的13秒之中，这个弹出54窗体都是什么也没有，就是一个窗体框，内容为透明的，该怎么优化和让form54正常显示