急求用VB编程做的3个简单程序

这是我前几天写的一个小程序，用到了反正切函数，和正余弦函数

题目：已知一长轴为len，及另一长轴的端点坐标（x1,y1）和(x2,y2)
画出椭圆。
算法步骤：
1、求a,b: a=len/2 b=sqr((x1-x2)^2+(y1-y2)^2)
2、求旋转角α ：求出(y1-y2)/(x1-x2)的反正切值即为α
3、求椭圆中心坐标（x0,y0）: x0=(x1+x2)/2 y0=(y1+y2)/2

3、计算椭圆上点的坐标（x,y）：
x=acosθ ， y=bsinθ ( 0<=θ< 2*π)
4、计算图形绕原点旋转α 弧度后的坐标(xx,yy):
xx=x*cos(-α )+y*sin(-α )
yy=-x*sin(-α )+y*cos(-α )
5、计算椭圆中心从原点平移到（x0,y0）后椭圆上点的坐标（xxx,yyy）:
xxx=xx+x0
yyy=yy+y0
6、在坐标（xxx,yyy）处画一各点
7、在( 0<=θ< 2*π)范围内，按一定间隔取值，重复3-7步骤，即得所要求的椭圆。

以下是vb代码，新建一个标准工程，不需做任何参数更改。打开代码窗口把代码粘贴进去，替换原来的所有代码，运行即可看效果。希望对你有用

Option Explicit
Dim X1, Y1, X0, Y0, X2, Y2 As Double
Dim A, B, PI As Double
Dim F As Boolean

Private Sub Form_Load()
PI = 3.14159265358979
F = False
DrawWidth = 2
Width = 10000
Height = 8000
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As I