Aggiungi alla form1 del programma il controllo Windows Media Player, al quale togli le barre dei pulsanti e tutto il resto, ci sono delle apposite proprietà nell'oggetto, quindi:

codice:
Private Sub Form_Load()
MediaPlayer1.Open ("Percorso del video")
End Sub

Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
form2.Show
End Sub