vb镜像处理DimcAsLong,xAsInteger,yAsIntegerPrivateSubcommand1_Click()Picture2.ClsFori=0ToPicture1.ScaleWidth-1Forj=0ToPicture1.ScaleHeight-1c=Picture1.Point(i,j)x=iy=Picture1.ScaleHeight-jPicture2.PSet(x,y),cNextjNextiEndSubPrivateSubCommand2_Click()Picture2.ClsFori=0ToPictu