Dear All:

我作了些修改,只要不斷地接著Enter鍵不放,
即可看到您從未發現的太極變化,
動態圖中,除了魚眼不變之外,其他都在變....
'--------------------------------------------
Const PI = 3.1415926

Private Sub form_activate()
Dim bangle, eangle As Single
Dim bangle1, eangle1 As Single

bangle1 = 90
eangle1 = 90

For i = 90 To 450

bangle1 = i
eangle1 = i

FillStyle = 0

FillColor = vbBlack
bangle = bangle1 * PI / 180
eangle = (eangle1 + 180) * PI / 180

bangle = ((bangle / 2 / PI) - Int(bangle / 2 / PI)) * 2 * PI
eangle = ((eangle / 2 / PI) - Int(eangle / 2 / PI)) * 2 * PI

Circle (3000, 2500), 2000, vbBlack, -bangle, -eangle

bangle = (bangle1 + 180) * PI / 180
eangle = eangle1 * PI / 180
FillColor = vbWhite
bangle = ((bangle / 2 / PI) - Int(bangle / 2 / PI)) * 2 * PI
eangle = ((eangle / 2 / PI) - Int(eangle / 2 / PI)) * 2 * PI
Circle (3000, 2500), 2000, vbWhite, -bangle, -eangle

FillColor = vbWhite
bangle = bangle1 * PI / 180
eangle = (eangle1 + 180) * PI / 180
bangle = ((bangle / 2 / PI) - Int(bangle / 2 / PI)) * 2 * PI
eangle = ((eangle / 2 / PI) - Int(eangle / 2 / PI)) * 2 * PI
Circle (3000, 3500), 1000, vbWhite, -bangle, -eangle

bangle = (bangle1 + 180) * PI / 180
eangle = bangle1 * PI / 180
FillColor = vbBlack
bangle = ((bangle / 2 / PI) - Int(bangle / 2 / PI)) * 2 * PI
eangle = ((eangle / 2 / PI) - Int(eangle / 2 / PI)) * 2 * PI
Circle (3000, 1500), 1000, vbBlack, -bangle, -eangle

FillColor = vbBlack
Circle (3000, 3500), 500, vbBlack

FillColor = vbWhite
Circle (3000, 1500), 500, vbWhite

MsgBox ("Press Me !!")

Cls

Next i

End Sub