. . : : | TeRRen.Jr | : : . .

Buat teMan2 sekaLian yaNg membUtuhkaN aNimasi agaR tAmpiLan ProgRamnya meNarik..neH ada Lagi sOUrce code aNimasi daRi saya...siLahkan cOpy pAste aJah...

Dim x(100), y(100), z(100) As Integer
Dim tmpx(100), tmpy(100), tmpz(100) As Integer
Dim k As Integer
Dim zoom As Integer
Dim kecepatan As Integer

Private Sub Form_Activate()
kecepatan = -1
k = 2038
zoom = 256
Timer1.Interval = 100
For i = 0 To 100
x(i) = Int(Rnd * 1024) - 512
y(i) = Int(Rnd * 1024) - 512
z(i) = Int(Rnd * 512) - 256
Next i

End Sub

Private Sub Timer1_Timer()
For i = 0 To 100
Circle (tmpx(i), tmpy(i)), 5, BackColor
z(i) = z(i) + kecepatan
If z(i) > 255 Then z(i) = -255
If z(i) < -255 Then z(i) = 255
tmpz(i) = z(i) + zoom
tmpx(i) = (x(i) * k / tmpz(i)) + (Form1.Width / 2)
tmpy(i) = (y(i) * k / tmpz(i)) + (Form1.Height / 2)
radius = 1
warnabintang = 256 - z(i)
Circle (tmpx(i), tmpy(i)), 5, RGB(warnabintang, warnabintang, warnabintang)
Next i

End Sub

seLamat meNcoba kawaN..
kaLo tidak sUka..kasih cOmment yaH..