Private Sub Command1_Click()r = Picture1.Width / 3h = r * 3 / 5Picture1.Circle (Picture1.Width / 2, Picture1.Height - h), r, , , , 0.2Picture1.Circle (Picture1.Width / 2, h), r, , , , 0.2Picture1.Line (Picture1.Width / 2 - r, h)-Step(r * 2, Picture1.Height - h * 2), , BEnd Sub |