Dim CutPic As RECT ListSame.Clear '清空List框 CutPic = CutLetters(PicPrint) '将PicPrint中的手写文本剪切 SapText.Left = CutPic.Left SapText.Width = CutPic.Right - CutPic.Left SapText.Top = CutPic.Top SapText.Height = CutPic.Bottom - CutPic.Top SapText.Visible = True ReDim OcrText(1 To Len(TxtSample.Text)) '重新定义O