Picture1.Circle (pw / 2, Picture1.Height / 4), ph / 4, , pi / 2, 3 * pi / 2
 Picture1.Circle (pw / 2, 3 * ph / 4), ph / 4, , 3 * pi / 2, pi / 2

这应该是在画圆
你可以试一下，如在电脑上运行一次。

网上找的参考下
circle (x,y),r,color,start,end,aspect
(x,y)为圆心，r 就是半径，color为圆的颜色，start 和end 代表圆弧的起始点和终点，省略则是全部圆；aspect 为圆的直径纵横比例，默认为1，正常画椭圆就用2 或者0.5 ，自己可以试一下。
如：circle(1000,1000),500,8,-6,-3 这是个扇形，起始点为-6，终点是-3.

Picture1.Circle (pw / 2, Picture1.Height / 4), ph / 4, , pi / 2, 3 * pi / 2
=> "(pw / 2, Picture1.Height / 4)" 为圆心位置；"ph / 4" 为半径；后面两“，”之间空白表示填充颜色为默认（如需红色则值为 vbRed)；
"pi / 2" 表示从90度位置开始画；"3 * pi / 2" 表示终止位置为 270度；该语句就是画右半圆

灌水?