cool bitblt effect..

anyone know howto created the same effect used in winamp's old about window, where the lama is in sort of a vortex?

check this out..i was playing around..it looks kinda cool :P

Code:

---

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then

For i = 1 To X
DoEvents
BitBlt Me.hdc, i, Y, 47, 47, Picture1.hdc, 0, 0, vbSrcCopy
Next i
For z = 1 To Y
DoEvents
BitBlt Me.hdc, X, z, 47, 47, Picture1.hdc, 0, 0, vbSrcCopy
Next z
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Cls
End Sub

---