请教一下这段代码会不会让程序崩溃?
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