Private Sub Command1_Click()Picture1.AutoRedraw = TruePicture1.Picture = LoadPicture("c:\1.jpg")Picture1.Circle (500, 500), 100, vbRedSavePicture Picture1.Image, "c:\xx.jpg"End Sub
