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