Picture1.Scale (0, 0)-(100, 100) Picture1.Line (25,0)-(100,50), , BF
Picture1.Scale (0, 0)-(200, 100) Picture1.Line (40, 10)-(100, 25), , BF
Picture1.FillStyle = 0 ' solid Picture1.Scale (0, 100)-(100, 0) Picture1.Circle (50,50), 25
WHOLE = 8 * Atn(1) ' WHOLE = 2*PI = 360 degrees Picture1.FillStyle = 0 Picture1.Scale (0, 30)-(30, 0) Picture1.Circle (15, 15), 10, , -WHOLE * (7 / 8), -WHOLE * (5 / 8)
Picture1.Scale (0, 0)-(100, 100) Picture1.CurrentX = 50 Picture1.CurrentY = 50 Picture1.Circle Step (25,0), 5