Private Sub Command1_Click()Picture1.AutoRedraw = TruePicture1.Circle (100, 100), 100SavePicture Picture1.Image, "c: est.bmp"End Sub