как сделать заставку

[hllh]

у меня есть мультик, сделанный в 3d студио максе, без звука, сжатый divx-ом. Надо чтобы он проигрывался автоматически при запуске программы, при нажатии любой кнопки прерывался и появлялась первая форма, тоже должно делаться при завершении мультика. Подскажите пожалуйста, как это сделать.

[Tarik]

К проекту подключаешь Microsoft Multimedia Control. Кидаешь его на форму, кидаешь PictureBox (сво-во TabIndex=0). В нём и будет играться видео. Дальше пишешь:

Код: Выделить всё

Private Sub Form_Load()
MMC1.Shareable = False
MMC1.DeviceType = "AVIVideo"
MMC1.Filename = [путь к видео]
MMC1.hWndDisplay = Picture1.hwnd
MMC1.Command = "open"
MMC1.Command = "play"
End Sub

Private Sub MMC1_Done(NotifyCode As Integer)
' по завершение видео показываем главную форму
If MMC1.Position = MMC1.Length Then
    MMC1.Command = "stop"
    MMC1.Command = "close"
    frmmain.show
    Unload Me
End If
End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    'это если юзверь нажал клавишу
    MMC1.Command = "stop"
    MMC1.Command = "close"
    frmmain.show
    Unload Me
End Sub