Option Explicit

Private Sub CloseButton_Click()
    End
End Sub

Private Sub Form_Load()
    ' Define all animations at run-time using the AVIPlay method
    SftButtonSearch.AVIPlay 1, ".\Search.avi", 0, -1
    SftButtonFind.AVIPlay 1, ".\FindComp.avi", 0, -1
    SftButtonDownload.AVIPlay 1, ".\Download.avi", 0, -1
End Sub