程序设计：x1、y1已声明为模块级变量，鼠标按下的事件过程如下：

编制事件过程Picture1_MouseUp，使得在图片框控件Pic1上拖动鼠标后，绘制出一个矩形，鼠标按下、抬起的位置分别为矩形斜对角线的定点，矩形轮廓线为红色，矩形内部填充色为绿色。

下面是一个“画板”程序，程序运行结果如图所示。单击“颜色”按钮（Command1）打开颜色对话框，实现对绘图笔颜色的设置，单击“清除”按钮（Command2）则清除图片框中的图形，使用单选按钮选择线型粗细（Option1）设置为1磅和（Option2）设置为3磅，根据选择的线型的粗细、颜色，用鼠标的左键模拟笔在绘图区随意绘图。

完成一个行星程序的设计，一个蓝色的小圆围绕红色大圆沿椭圆轨道运行。椭圆方程为：x=x₀+rx^*cos（alfa），y=y₀+ry^*sin（alfa），其中X₀，Y₀为椭圆圆心坐标，RX为水平半径，RY为垂直半径，ALFA为圆心角。具体要求如下：
1）在窗体中引入一个合适大小的形状控件SHAPE2，将SHAPE2的SHAPE属性设置为圆形、蓝色。
2）TIMER的时间间隔为0.1秒。
3）代码窗口中的内容填充完整。
效果如图所示。