请教一下这段代码会不会让程序崩溃？

 
                        btnItem(jCtr).Tag = ""
                        btnItem(jCtr).Visible = True
                            
                        Load btnPrice(jCtr)
                            
                        btnPrice(jCtr).Caption = ""
                        'btnPrice(jCtr).CaptionAlign = vbRightJustify
                        btnPrice(jCtr).Tag = ""
                        btnPrice(jCtr).Visible = True
                            
                        Load BtnPic(jCtr)
                        
                        BtnPic(jCtr).Visible = True
                        
                        btnItem(jCtr).Move btnItem(0).Left, btnItem(jCtr - 1).Top + btnItem(jCtr - 1).Height + BtnPic(jCtr).Height, _
                                            btnItem(0).Width, btnItem(0).Height
                        btnItem(jCtr).Caption = Trim(sPrnLn)
                        
                        btnPrice(jCtr).Move btnPrice(0).Left, btnPrice(jCtr - 1).Top + btnPrice(jCtr - 1).Height + BtnPic(jCtr).Height, _
                                            btnPrice(0).Width, btnPrice(0).Height 
 
                                            
                        btnPrice(jCtr).Caption = Trim(sPrnLn1)
                        
                        BtnPic(jCtr).Move btnItem(0).Left, btnItem(jCtr).Height + btnItem(jCtr).Top, Pic2.Width
                    End If
                    jCtr = jCtr + 1
                Else
                    sPrnLn = Space(8) & "- " & Trim(.Value(5))
                End If
                DoEvents
                .MoveNext
            End With
        Next
        
        pItemCount = jCtr
        MainpictureMove
        
        'show Total&qty
        PicTotal.Visible = True
        PicTotal.Move Pic7.Left, Pic7.Top + Pic7.Height + 200, Pic7.Width, PicTotal.Width
        total.Visible = True
        total.Width = PicTotal.Width
        total.Caption = PADR("TOTAL :", 15) & PADL(Trim$(oCurrency.FormatCurrency(sTotal)), 10)
        
        Cash(0).Visible = True
        Cash(0).Width = PicTotal.Width
        Cash(0).Caption = PADR("Total Qty:", 15) & PADL(frmMainTS.txtTotalQty.Caption, 10)
        
        change.Visible = False
        
    Else
        picMain.Visible = False
        PicTotal.Visible = True
        
        PicTotal.Move Pic2.Left, Pic6.Top, Pic2.Width, 5 * (total.Height)
        
        While Cash.Count > 1 
 
            Unload Cash(Cash.Count - 1)
        Wend
        DoEvents
        
        total.Visible = True
        total.Width = PicTotal.Width
        total.Caption = PADR("TOTAL", 15) & PADL(Trim$(oCurrency.FormatCurrency(sTotal)), 10)
        
        
        sPlitGst() = Split(pPayment, "|")
        For iCtr = 0 To UBound(sPlitGst)
            sPrnLn = Left(sPlitGst(iCtr), InStr(sPlitGst(iCtr), ",") - 1)
            sAmount = Replace(sPlitGst(iCtr), sPrnLn & ",", "")
            sPrnLn = PADR(sPrnLn, 15) & PADL(Trim$(oCurrency.FormatCurrency(sAmount)), 10)
            If iCtr = 0 Then
                Cash(0).Visible = True
                Cash(0).Width = PicTotal.Width
                Cash(0).Caption = sPrnLn
                
            Else
                If iCtr > 2 Then Exit For
                Load Cash(iCtr)
                
                Cash(iCtr).Visible = True
                Cash(iCtr).Move Cash(0).Left, Cash(iCtr - 1).Top + Cash(iCtr - 1).Height, Cash(0).Width, Cash(0).Height
                Cash(iCtr).Caption = sPrnLn
            End If
            
        Next iCtr

        If pChanges <> 0 Then
        
            sPrnLn = PADR("CHANGE ", 15) & PADL(Trim$(oCurrency.FormatCurrency(pChanges)), 10)
            change.Visible = True
            change.Move Cash(0).Left, Cash(iCtr - 1).Top + Cash(iCtr - 1).Height, Cash(0).Width, Cash(0).Height
             
 
        End If
    
    End If

这个程序用于双屏幕中，所以FORM是不会消失的，但是不停的UNLOAD和LOAD控件，会影响程序的运行吗？
[解决办法]
。。。。一个注释都没
[解决办法]

[解决办法]

[解决办法]
代码这样写看起来蛋疼，建议把方法提取出来啊