simpLe animation, hangs on unload ; * )

[Machaira]

More than likely this is your problem:

Private Sub Picbox_Paint()
    DD.RestoreAllSurfaces
    Init
    bLt
End Sub

You shouldn't need any of this.

Also, you should be able to replace the End statement with Unload Me.