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 = T